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Preface 


Something amazing lies beneath BASIC. 

Several years ago I decided to learn to program in 
machine language, the computer's own language. I 
understood BASIC fairly well and I realized that it was simply 
not possible to accomplish all that I wanted to do with my 
computer using BASIC alone. BASIC is sometimes just 
too slow. 

I faced the daunting (and exhilarating) prospect of 
learning to go below the surface of my computer, of finding out 
how to talk directly to a computer in its language, not the 
imitation-English of BASIC. I bought four books on 6502 
machine language programming and spent several months 
practicing with them and puzzling out opcodes and 
hexadecimal arithmetic, and putting together small machine 
language programs. 

Few events in learning to use a personal computer have 
had more impact on me than the moment that I could instantly 
fill the TV screen with any picture I wanted because of a 
machine language program I had written. I was amazed at its 
speed, but more than that, I realized that any time large 
amounts of information were needed on screen in the future — 
it could be done via machine language. I had, in effect, created 
a new BASIC "command" which could be added to any of my 
programs. This command — using a SYS or USR instruction to 
send the computer to my custom-designed machine language 
routine — allowed me to have previously impossible control 
over the computer. 

BASIC might be compared to a reliable, comfortable car. It 
will get you where you want to go. Machine language is like a 
sleek racing car — you get there with lots of time to spare. 

When programming involves large amounts of data, music, 
graphics, or games — speed can become the single most 
important factor. 

After becoming accustomed to machine language, I 
decided to write an arcade game entirely without benefit of 



BASIC. It was to be in machine language from start to finish. I 
predicted that it would take about twenty to thirty hours. It 
was a space invaders game with mother ships, rows of aliens, 
sound . . . the works. It took closer to 80 hours, but I am 
probably more proud of that program than of any other I've 
written. 

After I'd finished it, I realized that the next games would 
be easier and could be programmed more quickly. The 
modules handling scoring, sound, screen framing, delay, and 
player/enemy shapes were all written. I only had to write new 
sound effects, change details about the scoring, create new 
shapes. The essential routines were, for the most part, already 
written for a variety of new arcade-type games. When creating 
machine language programs you build up a collection of 
reusable subroutines. For example, once you find out how to 
make sounds on your machine, you change the details, but not 
the underlying procedures, for any new songs. 

The great majority of books about machine language 
assume a considerable familiarity with both the details of 
microprocessor chips and with programming technique. This 
book only assumes a working knowledge of BASIC. It was 
designed to speak directly to the amateur programmer, the 
part-time computerist. It should help you make the transition 
from BASIC to machine language with relative ease. 

This book is dedicated to Florence, Jim, and Larry. I 
would also like to express my gratitude to Lou Cargile for his 
many helpful suggestions; to Tom R. Halfhill and Charles 
Brannon of the COMPUTE! Magazine editorial staff for their 
contributions — both direct and indirect — to this book; and to 
Robert Lock and Kathleen Martinek for their encouragement, 
comments, and moral support. And special thanks to Jim 
Butterfield for his maps, programs, and constant encourage¬ 
ment to everyone who decides to learn 6502 machine language 
programming. 
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Introduction 


Throughout the book we'll be learning how to handle a variety 
of ML instructions, and the "Simple Assembler" program will be of 
great help. You might want to familiarize yourself with it. Knowing 
what it does (and using it to try the examples in this book), you will 
gradually build your understanding of ML, hexadecimal numbers, 
and the new possibilities open to the computerist who knows ML. 

Seeing It Work 

Chapters 2 through 8 each examine a major aspect of ML where it 
differs from the way BASIC works. In each chapter, examples and 
exercises lead the programmer to a greater understanding of the 
methods of ML programming. By the end of the book, you should be 
able to write, in ML, most of the programs and subroutines you will 
want or need. 

Let's examine some advantages of ML, starting with the main 
one — ML runs extremely fast. 

Here are two programs which accomplish the same thing. The 
first is in ML, and the second is in BASIC. They get results at very 
different speeds indeed, as you'll see: 

Machine Language 

169 1 160 0 153 0 128 153 0 129 153 0 

130 153 0 131 200 208 241 96 

BASIC 

5 FOR I = 1 TO 1000: PRINT "A";: NEXT I 

These two programs both print the letter "A" 1000 times on the 
screen. The ML version takes up 28 bytes of Random Access Memory 
(RAM). The BASIC version takes up 45 bytes and takes about 30 times 
as long to finish the job. If you want to see how quickly the ML 
works, you can POKE those numbers somewhere into RAM and run 
the ML program with a SYS (Commodore computers) or USR (Atari) 
or CALL (Apple). In both BASIC and ML, many instructions are 
followed by an argument. The instructions SYS and CALL have 
numbers as their arguments. In these cases, the instruction is going to 
turn control of the computer over to the address given as the 
argument. There would be an ML program waiting there. To make it 
easy to see this ML program's speed, we'll load it into memory 
without yet knowing much about it. 

A disassembly is like a BASIC program's LISTing. You can give 
the starting address of an ML program to a disassembler and it will 
translate the numbers in the computer's memory into a readable 
series of ML instructions. See Appendix D for a disassembler that you 
can use to examine and study ML programs. 
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Here's what the PET/CBM version looks like when it has been 
translated by a disassembler: 

A Disassembly 

Program I -1. Disassembly. 


0360 

A9 

01 


LDA 

#$01 

0362 

A0 

00 


LDY 

#$00 

0364 

99 

00 

80 

STA 

$8000,Y 

0367 

99 

00 

81 

STA 

$8100,Y 

036A 

99 

00 

82 

STA 

$8200,Y 

036D 

99 

00 

83 

STA 

$8300,Y 

0370 

C8 



INY 


0371 

DO 

FI 


BNE 

$0364 

0373 

60 



RTS 



The following BASIC programs (called loaders) POKE the ML 
instructions (and their arguments) into memory for you: 

Program 1-2. PET Version. 


1 REM PET VERSION 

800 FOR AD=864T0883:READ DA:POKE AD 
,DA:NEXT AD 

810 PRINT"SYS 864 TO ACTIVATE" 

820 DATA169,01,160,0,153,0 
830 DATA128,153,0,129,153,0 
840 DATA130,153,0,131,200,208 
850 DATA241,96 


Program 1-3. VIC Version. 

1 REM VIC VERSION 

800 FOR AD = 864T0885:READDA:POKEAD,D 
A:NEXTAD 

805 PRINT"SYS 864 TO ACTIVATE" 

810 DATA 160, 0, 169, 1, 153, 0 
820 DATA 30, 153, 0, 31, 169, 6 
830 DATA 153, 0, 150, 153, 0, 151 
840 DATA 200, 208, 237, 96 
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Program 1-4. 64 Version. 

Newer model 64's need to have the color registers set before running this program 
to see the effect on the full screen. 

1 REM COMMODORE 64 VERSION 
800 FOR AD=40000T040019:READDA:POKE 
AD,DA:NEXTAD 

805 PRINT"SYS 40000 TO ACTIVATE" 

810 DATA169,1,160,0,153,0 
820 DATA4,153,0,5,153,0 
830 DATA6,153,0,7,200,208 
840 DATA241,96 


Program 1-5. Apple Version. 

100 FOR I = 770 TO 789: READ A: POKE I,A: NE 
XT 

110 PRINT "CALL 770 TO ACTIVATE " 

120 DATA 169,129,162,0,157,0,4,157,0,5,157,0 
,6,157,0,7,202,208,241,96 


Program 1-6. Atari Version. 

100 FOR 1=1536 TO 1561:READ A:POKE I,A:NEXT I 
110 PRINT "A=tJSR( 1536) TO ACTIVATE " 

120 DATA 165,88,133,0,165,89,133,1,169 

130 DATA 33,162,4,160,0,145,0,200,208,251,230 

140 DATA 1,202,208,244,104,96 


After running this program, type the SYS or USR or CALL as 
instructed and the screen will instantly fill. From now on, when we 
mention SYS, Atari owners should mentally substitute USR and 
Apple owners should think CALL. 

BASIC stands for Beginners All-purpose Symbolic Instruction 
Code. Because it is all-purpose, it cannot be the perfect code for any 
specific job. The fact that ML speaks directly to the machine, in the 
machine's language, makes it the more efficient language. This is 
because however cleverly a BASIC program is written, it will require 
extra running time to finish a job. 

For example, PRINT involves BASIC in a series of operations 
which ML avoids. BASIC must ask and answer a series of questions. 
Where is the text located that is to be PRINTed? Is it a variable? Where 



Introduction 


is the variable located? How long is it? Then, it must find the proper 
location on the screen to place the text. However, as we will discover, 
ML does not need to hunt for a string variable. And the screen 
addresses do not require a complicated series of searches in an ML 
program. Each of these tasks, and others, slow BASIC down because 
it must serve so many general purposes. The screen fills slowly 
because BASIC has to make many more decisions about every action 
it attempts than does ML. 

Inserting ML For Speed 

A second benefit which you derive from learning ML is that your 
understanding of computing will be much greater. On the abstract 
level, you will be far more aware of just how computers work. On the 
practical level, you will be able to choose between BASIC or ML, 
whichever is best for the purpose at hand. This choice between two 
languages permits far more flexibility and allows a number of tasks to 
be programmed which are clumsy or even impossible in BASIC. 

Quite a few of your favorite BASIC programs would benefit from a 
small ML routine, "inserted" into BASIC with a SYS, USR, or CALL, 
to replace a heavily used, but slow, loop or subroutine. Large sorting 
tasks, smooth animation, and many arcade-type games must involve 
ML. 

BASIC Vs. Machine Language 

BASIC itself is made up of many ML programs stored in your 
computer's Read Only Memory (ROM) or sometimes loaded into 
RAM from disk. BASIC is a group of special words such as STOP or 
RUN, each of which stands for a duster of ML instructions. One such 
cluster might sit in ROM (unchanging memory) just waiting for you 
to type LIST. If you do type in that word, the computer turns control 
over to the ML routine which accomplishes a program listing. The 
BASIC programmer understands and uses these BASIC words to 
build a program. You hand instructions over to the computer relying 
on the convenience of referring to all those pre-packaged ML routines 
by their BASIC names. The computer, however, always follows a 
series of ML instructions. You cannot honestly say that you truly 
understand computing until you understand the computer's 
language: machine language. 

Another reason to learn ML is that custom programming is then 
possible. Computers come with a disk operating system (DOS) and 
BASIC (or other "higher-level" languages). After a while, you will 
likely find that you are limited by the rules or the commands available 
in these languages. You will want to add to them, to customize them. 
An understanding of ML is necessary if you want to add new words 
to BASIC, to modify a word processor (which was written in ML), or 
to personalize your computer — to make it behave precisely as you 
want it to. 
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BASIC’s Strong Points 

Of course, BASIC has its advantages and, in many cases, is to be 
preferred over ML. BASIC is easier to analyze, particularly because it 
often includes REM statements which reveal the functions of the 
program's parts. REMs also make BASIC easier to modify. This could 
make it the language of choice if the program must frequently be 
partially rewritten or updated to conform to changing conditions. For 
example, a program which calculates a payroll might well have at the 
beginning a series of data statements which contain the tax rates. 
BASIC DATA statements can be easily altered so that the program 
will reflect the current rates. If the payroll program runs fast enough 
in BASIC, there is no advantage to translating it into ML. 

BASIC is also simpler to debug (to get all the problems ironed out 
so that it works as it should). In Chapter 3 we will examine some ML 
debugging techniques which work quite well, but BASIC is the easier 
of the two languages to correct. For one thing, BASIC often just 
comes out and tells you your programming mistakes by printing out 
error messages on the screen. 

Contrary to popular opinion, ML is not necessarily a memory¬ 
saving process. ML can use up about as much memory as BASIC does 
when accomplishing the same task. Short programs can be somewhat 
more compact in ML, but longer programs generally use up bytes fast 
in both languages. However, worrying about using up computer 
memory is quickly becoming less and less important. In a few years, 
programmers will probably have more memory space available than 
they will ever need. In any event, a talent for conserving bytes, like 
skill at trapping wild game, will likely become a victim of technology. 
It will always be a skill, but it seems as if it will not be an everyday 
necessity. 

So, which language is best? They are both best — but for 
different purposes. Many programmers, after learning ML, find that 
they continue to construct programs in BASIC, and then add ML 
modules where speed is important. But perhaps the best reason of all 
for learning ML is that it is fascinating and fun. 
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How To Use This Book 


Although anyone wishing to learn 6502 machine language (ML) will 
likely find this book instructive and worthwhile, the specific example 
programs are written to work on five popular personal computers: 
Apple, Atari, VIC, Commodore 64, and the PET/CBMs. If your 
computer uses the 6502 microprocessor, but is not one of these 
machines, you will need to find a "memory map" for your particular 
machine. These maps — widely available in books and magazines, 
and from user groups — will allow you to follow and practice with the 
examples of 6502 machine language throughout this book. 

In particular, there are several memory addresses which are 
used in many of the examples presented in this book. Their addresses 
are given for the five computers mentioned above, but if you have a 
different computer, you should look them up in a map of your 
machine: 

1. "Which key is pressed?" This is an address, usually somewhere 
in the first 256 addresses, which is always holding the value of the 
most recently pressed key on the keyboard. 

2. Starting Address of RAM Screen Memory. This is the address in 
your computer where, if you POKEd something into it from BASIC, 
you would see the effect in the upper left-hand corner of your screen. 

3. Print a Character. This address is within your BASIC ROM 
memory itself. It is part of the BASIC language, but written in ML. It 
is the starting address of a routine which will put a character on the 
screen. 

4. Get a Character. Also part of BASIC in ROM memory, this ML 
routine accepts a character from the keyboard and stores it. 

5. A safe place. You must know where, in your computer, you 
can construct ML programs without interfering with a BASIC 
program or anything else essential to the computer's normal 
operations. The best bet is often that memory space designed to serve 
the cassette player called the cassette buffer. While practicing, you 
won't be using the cassette player and that space will be left alone by 
the computer itself. 

Here are the answers to give the Simple Assembler (Appendix 
C) when it asks for "Starting Address." These are hexadecimal 
numbers about which we'll have more to say in the next chapter. For 
now, if you've got an Atari, type in 0600. If you use a PET/CBM, 
answer 0360. For VIC or Commodore 64, type: 0340. If you have an 
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Apple, use 0300. For other computers, you'll need to know where 
there are about 100 RAM memory addresses that are safe. 

All through this book, the examples will start at various arbitrary 
addresses (1000, 2000, 5000, for example). You should substitute the 
addresses which are safe in your computer. Just as it doesn't matter 
whether you start a BASIC program at line number 10 or line 100, it 
makes no difference whether a ML program starts at address 1000 or 
0340, as long as you are putting it in a safe memory zone. 

So, start all of the examples you assemble for practice in the 
same convenient, safe memory location for your machine. In fact, the 
Simple Assembler (SA) was designed to be modified and customized. 
See the introduction to Appendix C for more detailed instructions on 
customizing. Because you can make the SA conform to your needs, 
you might want to replace the line with the INPUT that requests the 
starting address (variable SA) with a specific address. In this way, 
you can work with the examples in the book without having to 
specify the safe address each time. 

The First Step: Assembling 

Throughout this book there are many short example ML programs. 
They vary in length, but most are quite brief and are intended to 
illustrate a ML concept or technique. The best way to learn something 
new is most often to just jump in and do it. Machine language 
programming is no different. Machine language programs are written 
using a program called an assembler, just as BASIC programs are 
written using a program called "BASIC.” 

In Appendix C there is a program called the "Simple 
Assembler.'' Your first step in using this book should be to type in the 
Microsoft version; it will work correctly on all personal computers 
using Microsoft BASIC. (If you have an Atari, type in the Atari 
version.) 

Once you've typed this program into your computer, you can 
save it to tape or disk and use it whenever you want to construct a ML 
program. The example ML routines in this book should be entered 
into your computer using the Simple Assembler and then modified, 
examined, and played with. 

Frequently, the examples are designed to do something to the 
screen. The reason for this is that you can tell at once if things are 
working as planned. If you are trying to send the message "TEST 
STRING" and it comes out "test string" or "TEST STRIN" or "TEST 
STRING@" — you can go back and reassemble it with the SA until 
you get it right. More importantly, you'll discover what you did 
wrong. 

What you see on the screen when you POKE a particular 
number to the screen will differ from computer to computer. In fact, it 
can vary on different models of the same computer. For this reason. 
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the examples in the book are usually given in standard ASCII codes 
(explained later). 

Chances are that your computer uses a particular code for the 
alphabet which is not ASCII. The Commodores use what's called 
"PET ASCII" and the Atari uses ATASCII, for ATari ASCII. It's not 
that bad, however, since once you've found the correct number to 
show the letter "A" on screen, the letter "B" will be the next higher 
number. If you don't have a chart of the character codes for your 
computer's screen POKEs, just use this BASIC program and jot down 
the number which is used to POKE the uppercase and lowercase 
"A." 


10 FOR 1 = 0 TO 255: POKE (your computer's start-of-screen- 

RAM address), I: NEXT 

With that knowledge, you can easily achieve the exact, predicted 
results for the examples in the book by substituting your computer's 
code. 

A Sample Example 

The following illustrations will show you how to go about entering 
and testing the practice examples in the book. At this point, of course, 
you won't recognize the ML instructions involved. The following 
samples are only intended to serve as a guide to working with the 
examples you will come upon later in the text. 

After you've typed in and saved the SA, you can RUN it (it's a 
BASIC program which helps you to write ML). The first thing it does 
is ask you where you want to start your ML program — where you 
want it stored in memory. This is why you need to know of a safe 
place to put ML programs in your computer. 

Of course you use line numbers when creating a BASIC 
program. Line numbers are not used in ML programming. Instead, 
you can think of memory addresses as "line numbers." So, if you are 
using the Atari, you will tell the SA that you are going to start your 
ML program at 0600. It will then print 0600 on the screen as if it were a 
line number, and you enter a ML program instruction, one per line, 
like this: 


0600 PLA 

0601 LDY 

0603 LDA 
0605 STA 
0608 RTS 
0609 END 


(This PLA is always required in the Atari when 
you use USR.) 

#00 (Stay in the hexadecimal mode for this 
example.) 

#21 

(58)Y 


3 
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The SA will automatically print each "line number" address 
when you are programming. You just type in those now mysterious 
ML instructions. This program will put the letter "A" on screen. 

After you are finished with an example, you type the word "END" 
and the SA will tell you the starting address of your ML program in 
RAM memory. 

The next step is to try out the ML program you've written to see 
that it will work as planned. On the Atari, you could type: 

X=USR(1536) (and hit RETURN) 
and this will "RUN" your ML program. You will have sent control of 
the computer from BASIC to your new ML program via the USR 
command. Be sure to remember that the Atari requires the PLA as the 
first instruction of each ML program that you plan to go to from 
BASIC by using the USR command. In all the examples in this book, type 
in a PLA as the first instruction before continuing with the rest of the 
example if you use an Atari. 

Most personal computers use Microsoft BASIC, and the PLA is 
not necessary. Here's how the same example would look on a 
PET/CBM after you answered 0360 as the starting address when the 
SA asked for it: 

0360 LDY #01 
0362 LDA #41 
0364 STA 8000 
0367 RTS 

0368 END (The word "END" isn't a 6502 ML instruction; it's 
a special signal to the SA to stop constructing a 
program and exit the SA program. Such special 
words are called pseudo-ops.) 

Then you could test it in direct mode (just typing in the 
instruction onto the screen with no line number and not as part of a 
BASIC program) by typing: 

SYS 864 and you should see the "A" on the screen. 

Notice that the Atari and PET versions are similar, but not 
identical. All 6502 based computers will work with the same 
"instruction set" of commands which the 6502 chip can understand. 
The major differences occur when you need to specify something 
which is particular to the design of your computer brand. An example 
would be the location in memory of your computer's screen. The 
instructions at 0605 in the Atari example and 0364 in the PET example 
send the code for the letter "A" to the different screen locations for 
these two computer brands. Also, the letter "A" itself is signified by 
the number 41 on a PET and by the number 21 on an Atari. 

But we'll go into these things further on. The main thing to learn 
here is how to use the SA to practice the examples. If you type in 0600 
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as the starting address as in the Atari example above, the SA will 
print the number 0600 on screen and wait for you to type in a 6502 
instruction (PLA in this case) and hit RETURN. Then it will print the 
next memory address just as if you were using an automatic line 
numbering routine when programming in BASIC. After you hit 
RETURN, the SA will print 0601 and wait for you to type in LDY #00. 
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The Fundamentals 


The difficulty of learning ML has sometimes been exaggerated. There 
are some new rules to learn and some new habits to acquire. But most 
ML programmers would probably agree that ML is not inherently 
more difficult to understand than BASIC. More of a challenge to 
debug in many cases, but it's not worlds beyond BASIC in 
complexity. In fact, many of the first home computerists in the 1970's 
learned ML before they learned BASIC. This is because an average 
version of the BASIC language used in microcomputers takes up 
around 12,000 bytes of memory, and early personal computers (KIM, 
AIM, etc.) were severely restricted by containing only a small amount 
of available memory. These early machines were unable to offer 
BASIC, so everyone programmed in ML. 

Interestingly, some of these pioneers reportedly found BASIC to 
be just as difficult to grasp as ML. In both cases, the problem seems to 
be that the rules of a new language simply are "obscure" until you 
know them. In general, though, learning either language probably 
requires roughly the same amount of effort. 

The first thing to learn about ML is that it reflects the 
construction of computers. It most often uses a number system 
(hexadecimal) which is not based on ten. You will find a table in 
Appendix E which makes it easy to look up hex, decimal, or binary 
numbers. 

We count by tens because it is a familiar (though arbitrary) 
grouping for us. Humans have ten fingers. If we had eleven fingers, 
the odds are that we would be counting by elevens. 

What’s a Natural Number? 

Computers count in groups of twos. It is a fact of electronics that the 
easiest way to store and manipulate information is by ON-OFF states. 
A light bulb is either on or off. This is a two-group, it's binary, and so 
the powers of two become the natural groupings for electronic 
counters. 2, 4, 8,16, 32, 64,128, 256. Finger counters (us) have been 
using tens so long that we have come to think of ten as natural, like 
thunder in April. Tens isn't natural at all. What's more, twos is a 
more efficient way to count. 

To see how the powers of two relate to computers, we can run a 
short BASIC program which will give us some of these powers. 

Powers of a number are the number multiplied by itself. Two to the 
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power of two (2 2 ) means 2 times 2 (4). Two to the power of three (2 3 ) 
means 2 times 2 times 2 (8). 

10 FOR 1 = 0 to 16 
20 PRINT 2 A I 
30 NEXT I 

ML programming can be done in decimal (based on ten- 
groupings), but usually is not. Most ML programming involves hex 
numbers. This means groups of 16 rather than 10. 

Why not just program in the familiar decimal numbers (as 
BASIC does)? Because 16 is one of the powers of two. It is a 
convenient grouping (or base) for ML because it organizes numbers 
the way the computer does. For example, all computers work, at the 
most elementary level, with bits. A bit is the smallest piece of 
information possible: something is either on or off, yes or no, plus or 
minus, true or false. This two-state condition (binary) can be 
remembered by a computer's smallest single memory cell. This single 
cell is called a bit. The computer can turn each bit "on” or "off" as if 
it were a light bulb or a flag raised or lowered. 

It's interesting that the word bit is frequently explained as a 
shortening of the phrase Binary digiT. In fact, the word bit goes back 
several centuries. There was a coin which was soft enough to be cut 
with a knife into eight pieces. Hence, pieces of eight. A single piece of 
this coin was called a bit and, as with computer memories, it meant 
that you couldn't slice it any further. We still use the word bit today as 
in the phrase two bits, meaning 25 cents. 

Whatever it's called, the bit is a small, essential aspect of 
computing. Imagine that we wanted to remember the result of a 
subtraction. When two numbers are subtracted, they are actually 
being compared with each other. The result of the subtraction tells us 
which number is the larger or if they are equal. ML has an instruction, 
like a command in BASIC, which compares two numbers by 
subtraction. It is called CMP (for compare). This instruction sets 
"flags" in the CPU (Central Processing Unit), and one of the flags 
always remembers whether or not the result of the most recent action 
taken by the computer was a zero. We'll go into this again later. What 
we need to realize now is that each flag — like the flag on a mailbox — 
has two possible conditions: up or down. In other words, this 
information (zero result or not-zero) is binary and can be stored within 
a single bit. Each of the flags is a bit. Together they make up one byte. 
That byte is called the Status Register. 

Byte Assignments 

Our computers group these bits into units of eight, called bytes. This 
relationship between bits and bytes is easy to remember if you think 
of a bit as one of the "pieces of eight." Eight is a power of two also 
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(two, to the third power). Eight is a convenient number of bits to 
work with as a group because we can count from zero to 255 using 
only eight bits. 

This gives us enough room to assign all 26 letters of the alphabet 
(and the uppercase letters and punctuation marks, etc.) so that each 
printed character will have its particular number. The letter "A" 
(uppercase) has been assigned the number 65. "B" is 66, and so on. 
Throughout this book, examples will follow the ASCII code for letters 
of the alphabet. Most microcomputers, however, do not adhere 
strictly to the ASCII code. If you get unexpected results when trying 
the example programs, check your BASIC manual to see if POKEing 
to the screen RAM uses a different code than ASCII. If that is the 
case, substitute your screen POKE code for the values given in the 
examples. 

These “assignments” form the convention called the ASCII 
code by which computers worldwide can communicate with each 
other. Text can be sent via modems and telephone lines and arrive 
meaning the same thing to a different computer. It's important to 
visualize each byte, then, as being eight bits ganged together and able 
to represent 256 different things. As you might have guessed, 256 is a 
power of two also (two, to the power of eight). 

So, these groupings of eight, these bytes, are a key aspect of 
computing. But we also want to simplify our counting from 0 to 255. 
We want the numbers to line up in a column on the screen or on 
paper. Obviously, the decimal number five takes up one space and the 
number 230 takes up three spaces. 

Also, hex is easier to think about in terms of binary numbers — 
the on-off, single-bit way that the computer handles numbers: 


Decimal 

1 

2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 

16 
17 


Hex 

01 

02 

03 

04 

05 

06 

07 

08 

09 

(note new digits)-> 0A 

0B 

0C 

0D 

0E 

OF 

(note new column-> 10 

in the hex) 11 


Binary 

00000001 

00000010 

00000011 (1 and 2) 
00000100 

00000101 (4 and 1) 

00000110 (4 and 2) 

00000111 (4 + 2 + 1) 

00001000 

00001001 

00001010 

00001011 

00001100 

00001101 

00001110 

00001111 

00010000 

00010001 
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See how hex $10 (hex numbers are usually preceded by a dollar 
sign to show that they are not decimal) looks like binary? If you split a 
hex number into two parts, 1 and 0, and the binary (it's an eight-bit 
group, a byte) into two parts, 0001 and 0000 — you can see the 
relationship. 

The Rationale For Hex Numbers 

ML programmers often handle numbers as hexadecimal digits, 
meaning groups of sixteen instead of ten. It is usually just called hex. 
You should read over the instructions to the Simple Assembler and 
remember that you can choose between working in hex or decimal 
with that assembler. You can know right from the start if you're 
working with hex or decimal, so the dollar sign isn't used with the 
Simple Assembler. 

DECIMAL 0123456789 then you start over 
with 10 

HEX 00 01 02 03 04 05 06 07 08 09 0A 0B 0C 0D 0E 
OF then you start over with 10 

Program 2-1. Microsoft Hex-Decimal Converter. 

1 HE$="0123456789ABCDEF" 

2 PRINT"{CLEAR}{03 DOWNjPLEASE CHOOSE: 

4 PRINT"{03 DOWN}{03 RIGHT}1-INPUT HEX & 

GET DECIMAL BACK. 

5 REM NEW LINE HERE 

6 PRINT"{02 DOWN} 2-INPUT DECIMAL TO G 

ET HEX BACK. 

7 GETK:IFK=0THEN7 

9 PRINT"{CLEAR}":ON KGOTO200,400 

100 H$="":FORM=3TO0STEP-1:N%=DE/(16"M):DE= 
DE-N%*16~M:H$=H$+MID$(HE$,N%+1,1) 

: NEXT 

101 RETURN 

102 D=0:Q=3:F0RM=1T04:FORW=0TOl5:IFMID$(H$ 
,M,1)=MID$(HE$,W+l,1)THEN104 

103 NEXTW 

104 D1=W*(16~(Q)):D=D+D1:Q=Q-1:NEXTM 

105 DE=INT(D):RETURN 

200 INPUT"{02 DOWN}HEX";H$:GOSUB102SPRINTS 
PC(11)"{UP}= {REV}"DE"{left} " 

210 GOTO200 

400 INPUT"{02 DOWN}DECIMAL";DE:GOSUB100:PR 
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INTSPC(14)"{UP}= {REV} "H$" 
410 GOTO400 


Program 2-2. Atari Hex-Decimal Converter. 

100 DIM H$(23),N$(9):OPEN#1,4,0,"K:" 

130 GRAPHICS 0 

140 PRINT" PLEASE CHOOSE:" 

150 PRINT"1- INPUT HEX AND GET DECIMAL BAC 
K. " 

160 PRINT"2- INPUT DECIMAL AND GET HEX BAC 
K. " 

170 PRINT:PRINT"==>";:GET#1,K 
180 IFK<490R> 50THEN170 
190 PRINTCHR$(K):0NK-48 GOTO 300,400 
300 H$="0ABCDEFGHIl1ll11IJKLMNO" 

310 PRINT"HEX";:INPUT N$:N=0 
320 FORI=lTOLEN(N$) 

330 N=N*16+ASC(H$(ASC(N$(l))-47))-64:NEXTI 

340 PRINT"$";N$;"=";N:PRINT:PRINT:GOTO140 
400 H$="0123456789ABCDEF" 

410 PRINT"DECIMAL";:INPUTN:M=4096 
420 PRINTN;"=$"; 

430 F0RI=1T04:J=INT(N/M) 

440 PRINTH?(J+1,J+1);:N=N-M*J:M=M/l6 
450 NEXTISPRINT:PRINT:GOTO140 


The first thing to notice is that instead of the familiar decimal 
symbol 10, hex uses the letter "A" because this is where decimal 
numbers run out of symbols and start over again with a one and a 
zero. Zero always reappears at the start of each new grouping in any 
number system: 0,10, 20, etc. The same thing happens with the 
groupings in hex: 0,10, 20, 30, etc. The difference is that, in hex, the 1 
in the "tens" column equals a decimal 16. The second column is now a 
"sixteens" column. 11 means 17, and 21 means 33 (2 times 16 plus 
one). Learning hex is probably the single biggest hurdle to get over 
when getting to know ML. Don't be discouraged if it's not 
immediately clear what's going on. (It probably never will be totally 
clear — it is, after all, unnatural.) You might want to practice the 
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exercises at the end of this chapter. As you work with ML, hex will 
gradually seem less and less alien. 

To figure out a hex number, multiply the second column by 16 
and add the other number to it. So, 1A would be one times 16 plus 10 
(recall that A stands for ten). 

Hex does seem impossibly confusing when you come upon it for 
the first time. It will never become second nature, but it should be at 
least generally understood. What is more, you can program in ML 
quite easily by looking up the hex numbers in the table at the end of 
this book. You need not memorize them beyond learning to count 
from 1 to 16 — learning the symbols. Be able to count from 00 up to 
OF. (By convention, even the smallest hex number is listed as two 
digits as in 03 or OB. The other distinguishing characteristic is that 
dollar sign that is usually placed in front of them: $05 or $0E.) It is 
enough to know what they look like and be able to find them when 
you need them. 

The First 255 

Also, most ML programming involves working with hex numbers 
only between 0 and 255. This is because a single byte (eight bits) can 
hold no number larger than 255. Manipulating numbers larger than 
255 is of no real importance in ML programming until you are ready 
to work with more advanced ML programs. This comes later in the 
book. For example, all 6502 ML instructions are coded into one byte, 
all the "flags” are held in one byte, and many "addressing modes" 
use one byte to hold their argument. 

To learn all we need know about hex for now, we can try some 
problems and look at some ML code to see how hex is used in the 
majority of ML work. But first, let's take an imaginary flight over 
computer memory. Let's get a visual sense of what bits and bytes and 
the inner workings of the computer's RAM look like. 

The City Of Bytes 

Imagine a city with a single long row of houses. It's night. Each house 
has a peculiar Christmas display: on the roof is a line of eight lights. 
The houses represent bytes; each light is a single bit. (See Figure 2-1.) 
If we fly over the city of bytes, at first we see only darkness. Each byte 
contains nothing (zero), so all eight of its bulbs are off. (On the 
horizon we can see a glow, however, because the computer has 
memory up there, called ROM memory, which is very active and 
contains built-in programs.) But we are down in RAM, our free user- 
memory, and there are no programs now in RAM, so every house is 
dark. Let's observe what happens to an individual byte when 
different numbers are stored there; we can randomly choose byte 
1504. We hover over that house to see what information is 
"contained" in the light display. (See Figure 2-2.) 
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Figure 2-2. 



Like all the rest, this byte is dark. Each bulb is off. Observing this, we 
know that the byte here is “holding" or representing a zero. If 
someone at the computer types in POKE 1504,1 — suddenly the 
rightmost light bulb goes on and the byte holds a one instead of a 
zero: 


Figure 2-3. 



This rightmost bulb is in the l's column (just as it would be in our 
usual way of counting by tens, our familiar decimal system). But the 
next bulb is in a 2's column, so POKE 1504, 2 would be: 



And three would be one and two: 

Figure 2-5. 



In this way — by checking which bits are turned on and then adding 
them together — the computer can look at a byte and know what 
number is there. Each light bulb, each bit, is in its own special 
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position in the row of eight and has a value twice the value of the one 
just before it: 

Figure 2-6. 



128 * 64 * ll* 




4 * V 


Eight bits together make a byte. A byte can "hold” a number 
from 0 through 255 decimal. We can think of bytes, though, in any 
number system we wish — in hex, decimal, or binary. The computer 
uses binary, so it's useful to be able to visualize it. Hex has its uses in 
ML programming. And decimal is familiar. But a number is still a 
number, no matter what we call it. After all, five trees are going to be 
five trees whether you symbolize them by 5, $05, or 00000101. 

A Binary Quiz 

BASIC doesn't understand numbers expressed in hex or binary. The 
Simple Assembler contains two subroutines to translate a number 
from decimal to hex or vice versa. You might want to take a look at 
how it's done as a way of getting a better feel for these different 
numbers systems. The subroutines are located at lines 4000 and 5000. 
Binary, for humans, is very visual. It forms patterns out of zeros and 
ones. The following program will let you quiz yourself on these 
patterns. 

Here is a game, for all computers, which will show you a byte as 
it looks in binary. You then try to give the number in decimal: 

Program 2-3. Binary Quiz for All Computers. 

100 REM BINARY QUIZ 

110 Cl=20:C0=111: REM FOR ATARI ONLY 
120 Cl = 88:C0 = 79 : REM FOR APPLE ONLY 
130 Cl=209:C0=215:REM FOR COMMODORE ONLY 
140 X=INT(256*RND(1)): D = X: P = 128 
150 PRINT CHR$(125);: REM ATARI ONLY 
160 PRINT CHR$(14V);: REM COMMODORE ONLY 
170 HOME: REM APPLE ONLY 
180 FOR I = 1 TO 8 

190 IF INT(D/P) = 1 THEN PRINT CHR$(C1);: 

D = D-P: GOTO 210 
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200 PRINT CHR$(C0); 

210 P = P/2: NEXT I: PRINT 
220 PRINT " WHAT IS THIS IN DECIMAL?" 
230 INPUT Q: IF Q = X THEN PRINT 
"CORRECT": GOTO 250 
240 PRINT "SORRY, IT WAS";X 
250 FOR T = 1 TO 1000: NEXT T 
260 GOTO 140 


This program will print out the entire table of binary numbers 
from 0 to 255: 

Program 2-4. 

100 REM COMPLETE BINARY TABLE 

110 L=8:B=2:C=1 

120 FORX=0TO255:PRINTX; 

140 IFXAND1THENK(C)=49:GOTO160 
150 K(C)=48 

160 C=C+1:IFBANDXTHENK(C)=49:GOTO180 
170 K(C)=48 

180 B=B*2: IFO8THEN200 
190 GOTO160 

200 FORI=0TO7:PRINTSTR$(K(L)-48);:L=L-1 

210 NEXT 

220 C=0:PRINT 

260 L=8:B=2:C=1:NEXTX 


Examples And Practice 

Here are several ordinary decimal numbers. Try to work out the hex 
equivalent: 

1 . 10 _ 

2. 15 _ 

3. 5 _ 

4. 16 _ 

5. 17 _ 

6. 32 _ 

7. 128 _ 

8. 129 _ 
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9. 255 _ 

10. 254 _ 

We are not making an issue of learning hex or binary. If you 
needed to look up the answers in the table at the end of the book, 
fine. As you work with ML, you will familiarize yourself with some of 
the common hex numbers. You can write most ML programs without 
needing to worry about binary. For now, we only want to be able to 
recognize what hex is. There are even some pocket “programmer" 
calculators which change decimal to hex for you and vice versa. 
Another way to go about “hexing" is to use a BASIC program which 
does the translation. A problem with BASIC is that you will be 
working in ML and your computer will be tied up. It is often 
inconvenient to crank up a BASIC program each time you need to 
work out a hex number. However, the Simple Assembler will do the 
translations for you any time you need them. 

One other reason that we are not stressing hex too much is that 
ML is generally not programmed without the help of an assembler. 
The Simple Assembler provided in this book will handle most of your 
input automatically. It allows you to choose whether you prefer to 
program in hex or decimal. You make this decision by changing line 
10 before starting to assemble. After that, you can put in hex or 
decimal without worrying that there will be any confusion about your 
intentions. 

This little BASIC program is good for practicing hex, but also 
shows how to change a small part and make it work for two-byte hex 
numbers. It will take decimal in and give back the correct hex. It is 
designed for Microsoft BASIC computers, so it will not work on the 
Atari. 

10 H$ = “0123456789ABCDEF" 

20 PRINT “ENTER DECIMAL NUMBER";:INPUT X 
30 IF X > 255 GOTO 20: REM NO NUMBERS BIGGER 
THAN 255 ALLOWED 
40 FOR 1 = 1 TOO STEP-1 
50 N% = X/(16'M): X = X-N% * 16^1 
60 HE$ = HE$ + MID$(H$,N% + 1,1) 

70 NEXT 
80 PRINT HE$ 

90 GOTO 20 

For larger hex numbers (up to two, to the power of 16 — which is 
65536), we can just change the above program. Eliminate line 30 and 
change line 40 to: FOR 1 = 3 TO 0 STEP -1. This will give us four-place 
hex numbers (used only as addresses) but which will also become 
recognizable after some ML practice. 
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65535 is an interesting number because it represents the limit of 
our computers' memories. In special cases, with additional hardware, 
memory can be expanded beyond this. But this is the normal upper 
limit because the 6502 chip is designed to be able to address (put bytes 
in or take them out of memory cells) up to $FFFF. 

Ganging Two Bytes Together To Form An Address 

The 6502 often sets up an address by attaching two bytes together and 
looking at them as if they formed a unit. An address is most 
commonly a two-byte number. $FFFF (65535) is the largest number 
that two bytes can represent, and $FF (255) is the most that one byte 
can hold. Three-byte addressing is not possible for the 6502 chip. 
"Machine language" means programming which is understood 
directly by the 6502 chip itself. There are other CPU (Central 
Processing Unit) chips, but the 6502 is the CPU for VIC, Apple, 64, 
PET/CBM, and Atari. It's the one covered in this book. 

Reading A Machine Language Program 

Before getting into an in-depth look at "monitors," those bridges 
between you and your machine's language — we should first learn 
how to read ML program listings. You've probably seen them often 
enough in magazines. Usually, these commented, labeled, but very 
strange-looking programs are called source code. They can be 
examined and translated by an assembler program into an ML program. 
When you have an assembler program run through source code, it 
looks at the key words and numbers and then POKEs a series of 
numbers into the computer. This series is then called the object code. 

Source programs contain a great deal of information which is of 
interest to the programmer. The computer only needs a list of 
numbers which it can execute in order. But for most people, lists of 
numbers are only slightly more understandable than Morse code. The 
solution is to replace numbers with words. The primary job of an 
assembler is to recognize an ML instruction. These instructions are 
called mnemonics, which means "memory aids.” They are like BASIC 
words, except that they are always three letters long. 

If you type the mnemonic JMP, the assembler POKEs a 76 into 
RAM memory. It's easier to remember JMP than 76. The 76 is the 
number that clues the computer that it's supposed to perform a JMP. 
The 76 is called an opcode, for "operation code." The three-letter 
words we use in ML programming, the mnemonics, were designed to 
sound like what they do. JMP does a JUMP (like a GOTO in BASIC). 
Some deluxe assemblers also let you use labels instead of numbers — 
as long as you define your labels at the start of the source code. These 
labels can refer to individual memory locations, special values like the 
score in a game, or entire subroutines. 
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Four Ways To List A Program 

Labeled, commented source code listings are the most elaborate kind 
of ML program representation. There are also three other kinds of ML 
listings. We can use a simple addition example program to show how 
it looks when represented in each of the four ML program listing 
styles. The first two styles are simply ways for you to type a program 
into the computer. The last two styles show you what to type in, but 
also illustrate what is going on in the ML program. First let's look at 
the most elementary kind of ML found in books and magazines: the 
BASIC loader. 


Program 2-6. BASIC Loader. 


10 

FOR ADDRESS = 

4096 TO 

4103 

20 

READ 

BYTE 



30 

POKE 

ADDRESS, 

BYTE 


40 

NEXT 

ADDRESS 



50 

DATA 

169,2,105 

,5,141, 

160,15,96 


This is a series of decimal numbers in DATA statements which is 
POKEd into memory starting at decimal address 4096. When these 
numbers arrive in RAM, they form a little routine which puts the 
number 2 into the accumulator — a special location in the computer 
that we'll get to later — and then adds 5. The result of the addition is 
then moved from the accumulator to decimal address 4000. If you try 
this program out, you can SYS 4096 to execute ML program and then 
? PEEK (4000) and you'll see the answer: seven. BASIC loaders are 
convenient because the user doesn't need to know how to enter ML 
programs. The loader POKEs them in and all the user has to do is SYS 
or USR or CALL to the right address and the ML transfers control 
back to BASIC when its job is done. 

Getting even closer to the machine level is the second way you 
might see ML printed in books or magazines: the hex dump. On 
some computers (PET, Apple) there is a special “monitor" program 
in ROM which lets you list memory addresses and their contents as 
hex numbers. More than that, you can usually type over the existing 
values on the screen and change them. That's what a hex dump 
listing is for. You copy it into your computer's RAM by using your 
computer's monitor. How you enter the monitor mode differs on 
each computer and we'll get to monitors in the next chapter. 

The hex dump, like the BASIC loader, tells you nothing about 
the functions or strategies employed within an ML program. Here's 
the hex dump version of the same 2 + 5 addition program: 
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Program 2-7. 

1000 A9 02 69 05 8D AO OF 60 


The third type of listing is called a disassembly. It's the opposite of 
an assembly because another program called a disassembler takes 
machine language (the series of numbers, the opcodes in the 
computer's memory) and translates it into the words, the 
mnemonics, which ML programmers use. The instruction you use 
when you want to load the accumulator is called LDA, and you can 
store what's in the accumulator by using an STA. We'll get to them 
later. In this version of our example addition routine, it's a bit clearer 
what's going on and how the program works. Notice that on the left 
we have the hex numbers and, on the right, the translation into ML 
instructions. ADC means ADd with Carry and RTS means ReTurn 
from Subroutine. 


Program 2-8. 


1000 

A9 

02 

LDA 

#$02 

1002 

69 

05 

ADC 

#$05 

1004 

8D 

A0 

OF STA 

$0FA0 

1007 

60 


RTS 


The Deluxe Version 






Finally we come to that full, luxurious, commented, labeled, deluxe 
source code we spoke of earlier. It includes the hex dump and the 
disassembly, but it also has labels and comments and line numbers 
added, to further clarify the purposes of things. Note that the 
numbers are all in hex. On the far left are the memory addresses 
where this routine is located. Next to them are the hex numbers of the 
instructions. (So far, it resembles the traditional hex dump.) Then 
come line numbers which can be used the way BASIC line numbers 
are: deleted, inserted, and so on. Next are the disassembled 
translations of the hex, but you can replace numbers with 
labels (see Program 2-10). You could still use numbers, but if you've 
defined the labels early on, they can serve as a useful reminder of 
what the numbers represent. Last, following the semicolons, are the 
comments. They are the same as REM statements. (See Programs 2-9 
and 2-10.) 
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< Q O E- Q 
O P Eh W Z 
JCWKH 


Q Q Eh Eh W 

jcmoi • 


< Q O Eh Q 

O Q Eh w 2 

J rtj CO 05 W 


< U < CQ Z 

Q a eh eh Pd 

J < CO 05 • 


ADDER =0005 START =1000 STORAGE =0FA0 

TWO =0002 
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Program 2-11. The Source Code By Itself. 


.BA 

TWO .DE 
ADDER .DE 
STORAGE .DE 


$1000 ; START 
2 ;DEFINE 
5 ;DEFINE 
$0FA0 ;DEFINE 


ADDR $1000 (4096) 
LABLE "TWO" AS 2. 
"ADDER" AS A 5. 
STORAGE ADDR. 


LDA #TWO 
ADC #ADDER 
STA STORAGE 
RTS 
.EN 


LOAD A WITH 2 
ADD 5 

STORE AT DECIMAL 4000 
RETURN 

END OF ASSEMBLY 


Program 2-11 illustrates just the source code part. The object code has 
not yet been generated from this source code. The code has not been 
assembled yet. You can save or load source code via an assembler in the 
same way that you can save or load programs via BASIC. When 2-11 
is in the computer, you could type "ASSEMBLE” and the assembler 
would translate the instructions, print them on the screen, and POKE 
them into memory. 

The Simple Assembler operates differently. It translates, prints, 
and POKEs after you hit RETURN on each line of code. You can save 
and load the object, but not the source code. 

Before we get into the heart of ML programming, a study of the 
instruction mnemonics and the various ways of moving information 
around (called addressing), we should look at a major ML 
programming aid: the monitor. It deserves its own chapter. 


ANSWERS to quiz: 0A, OF, 05,10,11, 20, 80, 81, FF, FE 
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The Monitor 


A monitor is a program which allows you to work directly with your 
computer's memory cells. When the computer "falls below" BASIC 
into the monitor mode, BASIC is no longer active. If you type RUN, it 
will not execute anything. BASIC commands are not recognized. The 
computer waits, as usual, for you to type in some instructions. There 
are only a few instructions to give to a monitor. When you're working 
with it, you're pretty close to talking directly to the machine in 
machine language. 

The PET and Apple II have monitors in ROM. This means that 
you do not need to load the monitor program into the computer; it's 
always available to you. (PETs with Original ROM sets do not have a 
ROM monitor; you must load in the monitor from a tape or disk.) 

Atari and VIC computers have a monitor as part of a larger 
"Assembler Editor" plug-in cartridge. The monitor on the Atari 
cartridge is called the "Debugger." That's a good name for it: 
debugging is the main purpose of a monitor. You use it to check your 
ML code, to find errors. 

The various computers have different sets of instructions which 
their monitors recognize. However, the main functions are similar, so 
it is worth reading through all of the following descriptions, even if 
the discussion is not specifically about the monitor for your 
computer. On the PET/CBM, VIC, and 64 you can add many of these 
functions with a monitor "extension" program called Micromon or 
Supermon (about which more later). These monitors are included in 
Appendix F. The monitors on the Apple II and available in the Atari 
Assembler Editor Cartridge do not need "extending." They contain 
most of the significant features required of a monitor. However, the 
special extensions in Appendix F for the Commodore computers add 
considerably to the Commodore ML programmer's repertoire. 

The Apple II 

You enter the Apple monitor by typing CALL -151. You will see the 
"*" monitor prompt and the cursor immediately after it. Here are the 
monitor instructions: 

1. Typing an address (in hex) will show you the number 
contained in that memory cell. *2000 (hit RETURN) will show 2000 — 
FF (if, in fact, 255 decimal ($FF, hex) is in that location). 

2. You can examine a larger amount of memory in hex (this is 
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called a memory dump or a hex dump). The Apple monitor remembers 
the address of the last number displayed. This can be used as a 
starting address for the dump. If you type the instruction in number 
one above, and then type *.2010, you will see a dump of memory 
between 2001 and 2010. The only difference between this and 
instruction one is the period (.) before the requested address. 

3. You can directly cause a dump by putting the period between 
two addresses: *2000.2010 combines the actions of instructions one 
and two above. 

4. Hitting RETURN will continue a dump, one line at a time. 

5. The last displayed memory location can be changed by using 
the colon (:). This is the equivalent of BASIC's POKE. If *2000 results 
in FF on the screen, you can change this FF to zero by typing *:00. To 
see the change, type *2000 again. Or you could type *2000:00 and 
make the change directly. 

The Apple II reference manual contains excellent descriptions of 
the monitor instructions. We will list the rest of them only briefly 
here: 

6. Change a series of locations at once: *2000: 00 69 15 65 12. 

7. Move (transfer) a section of memory: *4000 <2000.2010M will 
copy what's between 2000 and 2010 up to address 4000. (All these 
addresses are hex.) 

8. Compare two sections of memory: *4000 < 2000.2010V. This 
looks like Move, but its job is to see if there are any differences 
between the numbers in the memory cells from 2000-2010 and those 
from 4000-4010. If differences are found, the address where the 
difference occurs appears on screen. If the two memory ranges are 
identical, nothing is printed on the screen. 

9. Saving (writing) a section of ML to tape: *2000.2010W. This is 
how you would save an ML program. You specify the addresses of 
the start and end of your program. 

10. Loading (reading) a section of memory (or an ML program) 
back into the computer from tape: *2000.2010R will put the bytes 
saved, in instruction nine, above, back where they were when you 
saved them. 

An interesting additional feature is that you could send the bytes 
to any address in the computer. To put them at 4000, you would just 
type *4000.4010R. This gives you another way to relocate subroutines 
or entire ML programs (in addition to the Move instruction, number 
seven above). If you move an ML program to reside at a different 
address from the one it was originally intended during assembly, any 
JMP or JSR (Jump To Subroutine, like BASIC's GOSUB) instructions 
which point to within your program must be adjusted to point to the 
new addresses. If your subroutine contained an instruction such as 
2000 JSR 2005, and you loaded at 4000, it would still say 4000 JSR 
2005. You would have to change it to read 4000 JSR 4005. All the BNE, 
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BPL, BEQ, branching instructions, though, will make the move 
without damage. They are relative addresses (as opposed to the 
absolute addressing of JSR 2005). They will not need any adjusting. 
We'll go into this in detail later. 

11. Run (go): *2000G will start executing the ML program which 
begins at address 2000. There had better be a program there or the 
machine is likely to lock up, performing some nonsense, an endless 
loop, until you turn off the power or press a RESET key. The program 
or subroutine will finish and return control of the computer to the 
monitor when it encounters an RTS. This is like BASIC's SYS 
command, except the computer returns to the monitor mode. 

12. Disassemble (list): *2000L will list 20 lines of ML on the 
screen. It will contain three fields (a field is a "zone" of information). 
The first field will contain the address of an instruction (in hex). The 
address field is somewhat comparable to BASIC's line numbers. It 
defines the order in which instructions will normally be carried out. 

Here's a brief review of disassembly listings. The second field 
shows the hex numbers for the instruction, and the third field is 
where a disassembly differs from a "memory" or "hex" dump (see 
numbers one and two, above). This third field translates the hex 
numbers of the second field back into a mnemonic and its argument. 
Here's an example of a disassembly: 

2000 A9 41 LDA #$41 

2002 8D 23 32 STA $3223 

2005 A4 99 LDY $99 

Recall that a dollar sign ($) shows that a number is in 
hexadecimal. The pound sign (#) means "immediate" addressing 
(put the number itself into the A register at 2000 above). Confusing 
these two symbols is a major source of errors for beginning ML 
programmers. You should pay careful attention to the distinction 
between LDA #$41 and LDA $41. The second instruction (without the 
pound sign) means to load A with whatever number is found in 
address $41 hex. LDA #$41 means put the actual number 41 itself into the 
accumulator. If you are debugging a routine, check to see that you've 
got these two types of numbers straight, that you've loaded from 
addresses where you meant to (and, vice versa, you've loaded 
immediately where you intended). 

13. Mini-assembler. This is an assembler program, though it is 
not part of the monitor ROM. It is in the Integer BASIC ROM, so 
systems using firmware Applesoft II cannot use it although the Apple 
II Plus can, in the INT mode. Like the Simple Assembler, this mini¬ 
assembler cannot use labels or calculate forward branches. (The 
Simple Assembler can be used for forward branches, however, as 
we'll see later.) You enter the Apple mini-assembler by typing the 
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address, mnemonic, and argument of your first instruction. The ! is 
printed by the computer: 

!2000:LDA #15 

This will be disassembled, and then you type in the next line, 
using spaces between each field: 

! LDY #01 

14. Step and Trace. These are very useful ways to isolate and fix 
errors. Remember that ML does not have much in the way of error 
messages. In fact, unless you are using a very complex assembler 
program, the only error that an assembler can usually detect is an 
impossible mnemonic. If you mistyped LDA as LDDA, your 
assembler would print ??? or, in the Apple, sound a beep and put a 
circumflex (a) near the error. In any case, you are not going to get 
elaborate SYNTAX ERROR messages. The Simple Assembler will 
type the word ERROR on the screen. Try it. 

We'll examine step and trace debugging methods under 
numbers 10 and 11 of the discussion of the Atari cartridge below. The 
Atari Assembler Cartridge and the Commodore Monitor Extension 
programs both allow step and trace, too. 

15. Changing registers. ‘(CONTROL) E will display the 
contents of the Accumulator, the X and Y registers, the status register 
(P) and the stack pointer (S). You can then change the contents of 
these registers by typing them in on screen, following a colon. Note 
that to change the Y register, you must type in the A and X registers 
as well: 

* (CONTROL) E 

You'll see: A = 01 X=05 Y=FF P=30 S=FE(whatever'sinthe 
registers at the time). 

To change the Y register to 00, you type in the A, X, and then the 
new version of Y: 

*:01 05 00 (and hit RETURN) 

16. Going back to BASIC. You can use * (CONTROL) B to go to 
BASIC (but it will wipe out any BASIC program that might have been 
there). Or you can use * (CONTROL) C to go back to BASIC, 
non-destructively. 

The Atari Monitor 

To enter the monitor on the Atari, you put the assembler cartridge 
into the left slot. The Atari does not have a monitor in ROM; you 
need the cartridge. As mentioned at the start of this chapter, the 
monitor mode in Atari is called DEBUG and is a part of the larger 
program within the assembler cartridge. There are three parts (or 
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modes) within the cartridge: EDIT, ASM (assembler), and DEBUG. 
Before looking at the commands available in the DEBUG mode, let's 
briefly explore how an ML program is created using the EDIT mode 
followed by ASM. The cartridge provides the Atari with a more 
advanced assembler than the Simple Assembler or the mini¬ 
assemblers available within the Apple II monitor or the Commodore 
monitor extension programs. The cartridge allows labels, comments, 
and line numbers. 

Until now, we've discussed ML programming which uses three 
fields (zones). Here's an example program which shows these three 
simple fields. We will print ten "A's" on the screen (the numbers are 
decimal): 


Address Field 
2000 
2002 
2004 


2007 

2008 
2010 


Instruction Field 
LDY 
LDA 
STA 


DEY 

BNE 

RTS (or BRK) 


Argument (Operand) Field 
#10 
#33 
(88), Y 

(The screen location is 
remembered by the Atari 
in addresses 88 and 89.) 

2004 


When you are in Atari's EDIT mode, you construct a program 
somewhat differently than you do with the Simple Assembler (or 
with mini-assemblers). Here's the same program using the Atari's 
additional fields: 


Line # 
100 
110 
120 
130 
140 


Label 

START 

LOOP 


Instruction Argument 
LDY #10 

LDA #33 

STA (88),Y 

DEY 

BNE LOOP 


Comments 

Set up counter for loop 
"A” in ATASCII 


Loop until zero 


Notice that labels allow us to use the word LOOP instead of the 
specific address we want to loop back to. In addition to all this, there 
are pseudo-ops which are instructions to the assembler to perform 
some task. A pseudo-op does not become part of the ML program 
(it's not a 6502 instruction), but it affects the assembly process in 
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some way. We would need two pseudo-ops in the above program to 
allow it to be assembled properly. Add these lines: 

10 * = $0600 (tells the assembler that this program should be 
assembled starting at address $0600. The $ means hexadecimal.) 
160 .END (tells the assembler that it should stop assembling 
here.) 

The example above with line numbers and labels is called source 
code because it is the source from which the assembler gets its 
information when it assembles object code (object code is an actual ML 
program which could be run, or executed). You cannot run the 
program above as is. It must first be assembled into 6502 ML. For one 
thing, the label LOOP has to be replaced with the correct branch back 
to line 120. Source code does not put bytes into memory as you write 
it (as a more elementary assembler like the Simple Assembler does). 

More Than A Monitor 

To make this into object code which you can actually execute, you 
type ASM (for assemble), and the computer will put the program 
together and POKE the bytes into memory, showing you on screen 
what it looks like. 

To test the program, type BUG to enter the DEBUG mode, clear 
the screen, and RUN it by typing G600 (for GO $0600). You'll see 
AAAAAAAAAA on screen. It works! 

All this isn't, strictly speaking, a monitor. It's a full assembler. 
The part of the assembler cartridge program which is equivalent to 
the monitor programs on Apple II and PET is the DEBUG mode. 
There are a number of commands in DEBUG with which you can 
examine, test, and correct ML code. As on the other computers, the 
DEBUG (monitor) mode allows you to work closely with single bytes 
at a time, to see the registers, to trace program flow. All numbers you 
see on screen (or use to enter into the computer) are in hex. You enter 
the DEBUG mode by typing BUG when the Assembler Cartridge is in 
the Atari. (To go back to EDIT mode, type X.) Here are the commands 
of DEBUG: 

1. Display the registers: type DR (RETURN) and you will see 
whatever is in the various registers. 

A=01 X = 05 Y=0F P=30 S=FE (P is the status register and S 
is the stack pointer.) 

2. Change the registers: type CR < 6,2 (RETURN) and you will 
have put a six into the accumulator and a two into the X register. To 
put a five into the status register, you must show how far to go by 
using commas: CR < ,„5 would do it. CR < 5 would put five into the 
accumulator. 

3. Dump memory: type D2000 and you will see the eight hex 
numbers which start at address 2000 in memory. 
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D2000 

2000 FF 02 60 20 FF D2 00 00 

D2000,2020 (would dump out memory between these two 
addresses) 

4. Change memory: type C2000 < 00,00 to put zeros into the first 
two bytes following address 2000. 

5. Transfer (move) memory: type M1000< 2000,2010 and you 
will non-destructively copy what's between 2000-2010 down into 
1000-1010. 

6. Compare (verify) memory: type V1000 < 2000,2010 and any 
mismatches will be printed out. 

7. Disassemble (list): type L2000 and you will see 20 lines of 
instructions displayed, the mnemonics and their arguments. 

8. Mini-assemble: the DEBUG mode allows you to enter 
mnemonics and arguments one at a time, but you cannot use labels. 
(The pseudo-ops BYTE, DBYTE, and WORD are available, though.) 
This is similar to the Simple Assembler and the mini-assemblers 
available to Apple II and PET monitor users. 

You type 2000 < LDA $05 and the computer will show you the 
bytes as they assemble into this address. Subsequent instructions can 
be entered by simply using the less-than sign again: < INC $05. To 
return to the DEBUG mode, you can hit the RETURN key on a blank 
line. 

9. Go (RUN a program): type G2000 and whatever program 
starts at address 2000 will run. Usually, you can stop the RUN by 
hitting the BREAK key. There are cases, though, (endless loops) 
which will require that you turn off the computer to regain control. 

10. Trace: type T2000 and you will also RUN your program, but 
the registers, bytes of ML code, and the disassembled mnemonics 
and arguments are shown as each instruction is executed. This is 
especially useful since you can watch the changes taking place in the 
registers and discover errors. If you have an LDA $03 and you then 
expect to find the accumulator to have the number three in it — you'll 
notice that you made that very common mistake we talked about 
earlier. Following LDA $03, you will see that the accumulator has, 
perhaps, a ten in it instead of the three you thought you'd get. Why? 
Because you wanted to write LDA #03 (immediate). Instead, you 
mistakenly loaded A with the value in address three, whatever it is. 

Seeing unexpected things like this happen during trace allows 
you to isolate and fix your errors. Trace will stop when it lands on a 
BRK instruction or when you press the BREAK key. 

11. Step: type S2000 and you will "step" through your program 
at 2000, one instruction at a time. It will look like trace, but you move 
slowly and you control the rate. To see the following instruction, you 
type the S key again. Typing S over and over will bring you through 
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the program. 

12. Return to EDIT mode: type X. 

PET, VIC, And Commodore 64 Monitors 

The resident monitor on the PET/CBM computer is the simplest of 
monitors. You enter it from BASIC by typing SYS 4 when no program 
is RUNning. This lands on a BReaK instruction; address 4 always 
contains a zero which is the opcode for BRK. You are then in monitor 
mode. Original ROM PETs, the earliest models, do not have a 
monitor in ROM, but one is available on tape, called TIM. Everything 
is done with hexadecimal numbers. 

There are only six monitor commands: 

1. Go (RUN) : type G 2000 and the program starts at address 
2000. It will continue until it lands on a BRK instruction. There is no 
key you can type to stop it. 

2. LOAD (from tape or disk): type L "0:NAME",08 and a 
program called "name" on disk drive zero will be loaded at the 
address from which it was SAVEd. There is no provision to allow you 
to LOAD to a different address. L "NAME",01 will LOAD from tape. 

3. SAVE (to a tape or disk): type S "0:NAME",08,2000,2009 and 
the bytes between hex 2000 and 2008 will be saved to disk drive zero 
and called "name." Important note: you should always be aware that a 
SAVE will not save the highest byte listed in your SAVE instruction. You 
always specify one byte more than you want to save. In our example 
here, we typed 2009 as our top address, but the monitor SAVEd only 
up to 2008. S "NAME",01,2000,2009 will SAVE to tape. 

An interesting trick is to save the picture on your screen. Try this 
from the monitor (for a disk drive): S "0:SCREEN",08,8000,8400 
(with a tape drive: S "SCREEN",01,8000,8400). Then, clear the 
screen and type: L "0:SCREEN",08 (tape: L "SCREEN",01). This 
illustrates that an ML SAVE or LOAD just takes bytes from within 
whatever range of memory you specify; it doesn't care what those 
bytes contain or if they make ML sense as a program. 

4. See memory (memory dump): type M 2000 2009 and the 
bytes between these addresses will be displayed on screen. To change 
them, you use the PET cursor controls to move to one of these hex 
numbers and type over it. Hitting the RETURN key makes the change 
in the computer's memory (the same way you would change a line in 
BASIC). 

Machine Language Registers 

5. See the registers: type R and you will see something like this 
on screen (the particular numbers in each category will depend on 
what's going on in your computer whenever you type R): 

PC IRQ SR AC XR YR SP 

2000 E62E 30 00 05 FF FE 


30 





The Monitor 3 


The PC is the program counter: above, it means that the next 
instruction the computer would perform is found at address 2000. If 
you typed G (for RUN), this is where it would start executing. The 
IRQ is the interrupt request. The SR is the status register (the 
condition of the flags). The AC is the accumulator, the XR and YR are 
the X and Y registers. The SP is the stack pointer. We'll get into all 
this later. 

6. Exit to BASIC: type X. 

That's it. Obviously, you will want to add trace, step, transfer, 
disassemble, and other useful monitor aids. Fortunately, they are 
available. Two programs, Supermon and Micromon, can be LOADed 
into your Commodore computer and will automatically attach 
themselves to your "resident” monitor. That is, when you're in the 
monitor mode, you can type additional monitor commands. 

Both Micromon and Supermon are widely available through user 
groups (they are in the public domain, available to everyone for free). 
If there is no user group nearby, you can type them in yourself. 
Supermon appeared in COMPUTE! Magazine, December 1981, Issue 
#19, on page 134. Micromon appeared in COMPUTE!, January 1982, 
Issue #20, page 160. A Micromon for VIC can be found in COMPUTE!, 
November 1982. Because of their value, particularly when you are 
debugging or analyzing ML programs, you will want to add them to 
your program library. Several of these monitor extensions can be 
found in Appendix F. 

Using The Monitors 

You will make mistakes. Monitors are for checking and fixing ML 
programs. ML is an exacting programming process, and causing bugs 
is as unavoidable as mistyping when writing a letter. It will happen, 
be sure, and the only thing for it is to go back and try to locate and fix 
the slip-up. It is said that every Persian rug is made with a deliberate 
mistake somewhere in its pattern. The purpose of this is to show that 
only Allah is perfect. This isn't our motivation when causing bugs in 
an ML program, but we'll cause them nonetheless. The best you can 
do is try to get rid of them when they appear. 

Probably the most effective tactic, especially when you are just 
starting out with ML, is to write very short sub-programs 
(subroutines). Because they are short, you can more easily check each 
one to make sure that it is functioning the way it should. Let's assume 
that you want to write an ML subroutine to ask a question on the 
screen. (This is often called a prompt since it prompts the user to do 
something.) 

The message can be: "press anykey." First, we'll have to store 
the message in a data table. We'll put it at hex $1500. That's as good a 
place as anywhere else. Remember that your computer may be using 
a different screen RAM POKE code to display these letters. POKE the 
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letter "A" into your screen RAM 
start of your screen alphabet and 
screen messages in this book. 

ASCII 

1500 80 P 

1501 82 R 

1502 69 E 

1503 83 S 

1504 83 S 

1505 32 

1506 65 A 

1507 78 N 

1508 89 Y 

1509 32 
150A 75 K 
150B 69 E 
150C 89 Y 
150D 00 


to see what number represents the 
use those numbers for any direct-to- 


ARK- 

18 

st 


Jo 

50 # •»*- 
37 4pr 

HI 

o o 

33 * 

46 

57 3? 

o o 

43 28 

37 & 

57 P 

255 '(the delimiter, 
the signal that the message is 
finished. Atari must use 


something beside zero which is 
used to represent the space 
character.) 


We'll put the subroutine at $1000, but be warned! This 
subroutine will not work as printed. There are two errors in this 
program. See if you can spot them: 

1000 LDY #$00 

1002 LDA $1500, Y 

1005 CMP $00 (is it the delimiter?) 

1007 BNE $100A (if not, continue on) 

1009 RTS (it was zero, so quit and return to whatever 

JSRed, or called, this subroutine) 

100A STA $8000, Y (for PET) 

100D INY 

100E JMP $1000 (always JMP back to $1000) 

Make the following substitutions if you use one of these machines: 

Atari: 1005 CMP $FF (That's hex for 255.) 

Atari: 100A STA $88), Y 

Apple: 100A STA $0400,Y 

Since we haven't yet gone into addressing or instructions much, 
this is like learning to swim by the throw-them-in-the-water method. 
See if you can make out some of the meanings of these instructions 
anyway. 
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This subroutine will not work. There are two errors and they are 
two of the most common bugs in ML programming. Unfortunately, 
they are not obvious bugs. An obvious bug would be mistyping: LDS 
when you mean LDA. That sort of bug would be caught by your 
assembler, and it would print an error message to let you know that 
no such instruction as LDS exists in 6502 ML. 

The bugs in this routine are mistakes in logic. If you disassemble 
this, it will also look fine to the disassembler, and no error messages 
will be printed there either. But, it will not work the way you wanted 
it to. Before reading on, see if you can spot the two errors. Also see if 
you can figure out how this routine would execute its instructions. 
Where does the computer go after the first pass through this code? 
When and how does it finish the job? 

Two Common Errors 

A very common bug, perhaps the most common ML bug, is caused 
by accidentally using zero page addressing when you mean to use 
immediate addressing. We mentioned this before, but it is the cause of 
so much puzzlement to the beginning ML programmer that we'll go 
over it several times in this book. Zero page addressing looks very 
similar to immediate addressing. Zero page means that you are 
addressing one of the cells in the first 256 addresses. A page of 
memory is 256 bytes. The lowest page is called zero page and is the 
RAM cells from number zero through 255. Page one is from 256-511 
(this is the location of the "stack" which we'll get to later). Addresses 
512-767 are page three and so on up to the top memory, page 255. 

Immediate addressing means that the number is right within the 
ML code, that it's the number which follows (which is the operand or 
the argument of) an instruction. LDA #13 is immediate. It puts the 
number 13 into the accumulator. LDA $13 is zero page and puts 
whatever number is in address 13 into the accumulator. It's easy and 
very common to mix up these two, so you might look at these 
instructions first when debugging a faulty program. See that all your 
zero page addressing is supposed to be zero page and that all your 
immediate addressing is supposed to be immediate. 

In the prompt example above, the LDY #00 is correct — we do 
want to set the Y register counter to zero to begin printing the 
message. So we want an immediate, the actual number zero. Take a 
good look, however, at the instruction at location $1005. Here we are 
not asking the computer to compare the number in the accumulator 
to zero. Instead, we are asking the computer to compare it to 
whatever might be in address zero — with unpredictable results. To fix 
this bug, the instruction should be changed to the immediate 
addressing mode with CMP # 0. 

The second bug is also a very common one. The subroutine, as 
written, can never leave itself. It is an endless loop. Loop structures 
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are usually preceded by a short initialization phase. The counters 
have to be set up before the loop can begin. Just as in BASIC, where 
FOR 1=1 TO 10 tells the loop to cycle ten times, in ML, we set the Y 
register to zero to let it act as our counter. It kills two birds with one 
stone in this subroutine. It is the offset (a pointer to the current 
position in a list or series) to load from the message in the data table 
and the offset to print to the screen. Without Y going up one (INY) 
each time through the loop, we would always print the first letter of 
the message, and always in the first position on the screen. 

What's the problem? It's that JMP instruction at $100E. It sends 
us back to the LDY # 0 address at 1000. We should be looping back to 
address 1002. As things stand, the Y register will always be reset to 
zero, and there will never be any chance to pick up the delimiter and 
exit the subroutine. An endless cycle of loading the "P" and printing 
it will occur. Y will never get beyond zero because each loop jumps 
back to 1000 and puts a zero back into Y. To see this, here's the same 
bug in BASIC: 

10 T = 5 
20 T = T + 1 
30 IF T = 10 THEN 50 
40 GOTO 10 

Tracking Them Down 

The monitor will let you discover these and other errors. You can 
replace an instruction with zero (BRK) and see what happens when 
you execute the program up to the BRK. Better yet, you can single 
step through the program and see that, for example, you are not 
really computing CMP #00 where you thought you were. It would 
also be easy to see that the Y register is being reset to zero each time 
through the loop. You are expecting to use it as a counter and it's not 
cooperating, it's not counting up each time through the loop. These 
and other errors are, if not obvious, at least discoverable from the 
monitor. 

Also, the disassembler function of the monitor will permit you to 
study the program and look, deliberately, for correct use of #00 and 
$00. Since that mix-up between immediate and zero page addressing 
is so common an error, always check for it first. 

Programming Tools 

The single most significant quality of monitors which contributes to 
easing the ML programmer's job is that monitors, like BASIC, are 
interactive. This means that you can make changes and test them right 
away, right then. In BASIC, you can find an error in line 120, make 
the correction, and RUN a test immediately. 

It's not always that easy to locate and fix bugs in ML: there are 
few, if any, error messages, so finding the location of a bug can be 
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difficult. But a monitor does allow interactivity: you make changes 
and test them on the spot. This is one of the drawbacks of complex 
assemblers, especially those which have several steps between the 
writing of the source code and the final assembly of executable object 
code (ML which can be executed). 

These assemblers often require several steps between writing an 
ML program and being able to test it. There are linkers, relocatable 
loaders, double-pass assembly, etc. All of these functions make it 
easier to rearrange ML subroutines, put them anywhere in memory 
without modification, etc. They make ML more modular (composed 
of small, self-sufficient modules or subroutines), but they also make it 
less interactive. You cannot easily make a change and see the effects 
at once. 

However, using a mini-assembler or the Simple Assembler, you 
are right near the monitor level and fixes can easily and quickly be 
tested. In other words, the simpler assemblers sometimes gain in 
efficiency what they lose in flexibility. The simpler assemblers 
support a style of programming which involves less pre-planning, 
less forethought, less abstract analysis. If something goes awry, you 
can just try something else until it all works. 

Plan Ahead Or Plunge In? 

Some find such trial and error programming uncomfortable, even 
disgraceful. The more complicated assemblers discourage 
interactivity and expect careful preliminary planning, flowcharts, 
even writing out the program ahead of time on paper and debugging 
it there. In one sense, these large assemblers are a holdover from the 
early years of computing when computer time was extremely 
expensive. There was a clear advantage to coming to the terminal as 
prepared as possible. Interactivity was costly. But, like the 
increasingly outdated advice urging programmers to worry about 
saving computer memory space, it seems that strategies designed to 
conserve computer time are anachronistic. You can spend all the time 
you want on your personal computer. 

Complex assemblers tend to downgrade the importance of a 
monitor, to reduce its function in the assembly process. Some 
programmers who've worked on IBM computers for 20 years do not 
use the word monitor in the sense we are using it. To them, monitors 
are CRT screens. The deluxe assembler on the Super Pet, for example, 
does have a monitor, but it has no single-step function and has no 
provision for SAVEing an ML program to disk or tape from the 
monitor. 

Whether or not you are satisfied with the interactive style of 
simple, mini-assemblers and their greater reliance on the monitor 
mode and on trial and error programming is your decision. If you 
want to graduate to the more complicated assemblers, to move closer 
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to high-level languages with labels and relocatable code, fine. The 
Atari assembler is fairly high-level already, but it does contain a full- 
featured monitor, the "debugger,” as well. The choice is ultimately a 
matter of personal style. 

Some programmers are uncomfortable unless they have a fairly 
complete plan before they even get to the computer keyboard. Others 
are quickly bored by elaborate flowcharting, "dry computing" on 
paper, and can't wait to get on the computer and see-what-happens- 
if. Perhaps a good analogy can be found in the various ways that 
people make telephone calls. When long-distance calls were 
extremely expensive, many people made lists of what they wanted to 
say and carefully planned the call before dialing. They would also 
watch the clock during the call. (Some still do this today.) As the costs 
of phoning came down, most people found that spontaneous 
conversation was more satisfying. It's up to you. 

Computer time, though, is now extremely cheap. If your 
computer uses 100 watts and your electric company charges five cents 
per KWH, leaving the computer on continuously costs about 12 cents 
a day. 
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Addressing 

The 6502 processor is an electronic brain. It performs a variety of 
manipulations with numbers to allow us to write words, draw 
pictures, control outside machines such as tape recorders, calculate, 
and do many other things. Its manipulations were designed to be 
logical and fast. The computer has been designed to permit 
everything to be accomplished accurately and efficiently. 

If you could peer down into the CPU (Central Processing Unit), 
the heart of the computer, you would see numbers being delivered 
and received from memory locations all over the computer. 
Sometimes the numbers arrive and are sent out, unchanged, to some 
other address. Other times they are compared, added, or otherwise 
modified, before being sent back to RAM or to a peripheral. 

Writing an ML program can be compared to planning the 
activities of this message center. It can be illustrated by thinking of 
computer memory as a city of bytes and the CPU as the main post 
office. (See Figure 4-1.) The CPU does its job using several tools: three 
registers, a program counter, a stack pointer, and seven little one-bit 
flags contained in a byte called the Status Register. We will only 
concern ourselves with the "C" (carry) flag and the "Z" (it equals 
zero) flags. The rest of them are far less frequently needed for ML 
programming so we'll only describe them briefly. (See Figure 4-1.) 

Most monitors, after you BRK (like BASIC's STOP) out of a 
program, will display the present status of these tools. It looks 
something like this: 

Program 4-1. Current Status Of The Registers. 

PC IRQ SR AC XR YR SP 

0005 E455 30 00 5E 04 F8 


The PC is the Program Counter and it is two bytes long so it can 
refer to a location anywhere in memory. The IRQ is also two bytes 
and points to a ROM ML routine which handles interrupts, special- 
priority actions. A beginning ML programmer will not be working 
with interrupts and need not worry about the IRQ. You can also more 
or less let the computer handle the SP on the end. It's the stack 
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pointer. The SP keeps track of numbers, usually return-from- 
subroutine addresses which are kept together in a list called the stack. 

The computer will automatically handle the stack pointer for us. 
It will also deal with IRQ and the program counter. For example, each 
ML instruction we give it could be one, two, or three bytes long. TYA 
has no argument and is the instruction to transfer a number from the 
Y register to the accumulator. Since it has no argument, the PC can 
locate the next instruction to be carried out by raising itself by one. If 
the PC held $4000, it would hold $4001 after execution of a TYA. LDA 
#$01 is a two-byte instruction. It takes up two bytes in memory so the 
next instruction to be executed after LDA #$01 will be two bytes 
beyond it. In this case, the PC will raise itself from $4000 to $4002. But 
we can just let it work merrily away without worrying about it. 

The Accumulator: The Busiest Register 

The SR, AC, XR, and YR, however, are our business. They are all 
eight bits (one byte) in size. They are not located in memory proper. 
You can't PEEK them since they have no address like the rest of 
memory. They are zones of the CPU. The AC, or A register, but most 
often called the accumulator, is the busiest place in the computer. The 
great bulk of the mail comes to rest here, if only briefly, before being 
sent to another destination. 

Any logical transformations (EOR,AND) or arithmetic 
operations leave their results in the accumulator. Most of the bytes 
streaming through the computer come through the accumulator. You 
can compare one byte against another using the accumulator. And 
nearly everything that happens which involves the accumulator will 
have an effect on the status register (SR, the flags). 

The X and Y registers are similar to each other in that one of their 
main purposes is to assist the accumulator. They are used as 
addressing indexes. There are addressing modes that we'll get to in a 
minute which add an index value to another number. For example, 
LDA $4000,X will load into A the number found in address $4005, if 
the X register is currently holding a five. The address is the number 
plus the index value. If X has a six, then we load from $4006. Why not 
just LDA $4006? It is far easier to raise or lower an index inside a loop 
structure than it would be to write in each specific address literally. 

A second major use of X and Y is in counting and looping. We'll 
go into this more in the chapter on the instruction set. 

We'll also have some things to learn later about the SR, the 
Status Register which holds some flags showing current conditions. 
The SR can tell a program or the CPU if there has been a zero, a carry, 
or a negative number as the result of some operation, among other 
things. Knowing about carry and zero flags is especially significant in 
ML. 

For now, the task at hand is to explore the various “classes" of 
mail delivery, the 6502 addressing modes. 
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Aside from comparing things and so forth, the computer must 
have a logical way to pick up and send information. Rather like a 
postal service in a dream — everything should be picked up and 
delivered rapidly, and nothing should be lost, damaged, or delivered 
to the wrong address. 

The 6502 accomplishes its important function of getting and 
sending bytes (GET and PRINT would be examples of this same thing 
in BASIC) by using several "addressing modes." There are 13 
different ways that a byte might be "mailed" either to or from the 
central processor. 

When programming, in addition to picking an instruction (of the 
56 available to you) to accomplish the job you are working on, you 
must also make one other decision. You must decide how you want to 
address the instruction — how, in other words, you want the mail sent 
or delivered. There is some room for maneuvering. You will probably 
not care if you accidentally choose a slower delivery method than you 
could have. Nevertheless, it is necessary to know what choices you 
have: most addressing modes are designed to aid a common 
programming activity. 

Absolute And Zero 

Let's picture a postman's dream city, a city so well planned from a 
postal-delivery point of view that no byte is ever lost, damaged, or 
sent to the wrong address. It's the City of Bytes we first toured in 
Chapter 2. It has 65536 houses all lined up on one side of a street (a 
long street). Each house is clearly labeled with its number, starting 
with house zero and ending with house number 65535. When you 
want to get a byte from, or send a byte to, a house (each house holds 
one byte) — you must "address" the package. (See Figure 4-2.) 

Here's an example of one mode of addressing. It's quite popular 
and could be thought of as "First Class." Called absolute addressing, 
it can send a number to, or receive one from, any house in the city. 

It's what we normally think of first when the idea of "addressing" 
something comes up. You just put the number on the package and 
send it off. No indexing or special instructions. If it says 2500, then it 
means house 2500. 

1000 STA $2500 
or 

1000 LDA $2500 

These two, STore A and LoaD A, STA and LDA, are the 
instructions which get a byte from, or send it to, the accumulator. The 
address, though, is found in the numbers following the instruction. 
The items following an instruction are called the instruction's 
argument. You could have written the address several ways. Writing it 
as $2500 tells your assembler to get it from, or send it directly to, hex 
$2500. This kind of addressing uses just a simple $ and a four-digit 
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Figure 4-2. The First Few Addresses On A Street With 65536 Houses. 
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number. You can send the byte sitting in the accumulator to 
anywhere in RAM memory by this method. Remember that the byte 
value, although sent to memory, also remains in the accumulator. It's 
more a copying than a literal sending. 

To save time, if you are sending a byte down to address 0 
through 255 (called the "zero page"), you can leave off the first two 
numbers: 1000 STA $07. This is only for the first 256 addresses, but 
they get more than their share of mail. Your machine's BASIC and 
operating system (OS) use much of zero page for their own 
temporary flags and other things. Zero page is a busy place, and there 
is not much room down there for you to store your own ML pointers 
or flags (not to mention whole routines). 

Heavy Traffic In Zero Page 

This second way to address, using only two hex digits, any hex 
number between $00 and $FF or a decimal number between 0 and 
255, is called, naturally enough, zero page addressing. It's pretty fast 
mail service: the deliverer has to decide among only 256 instead of 
65536 houses, and the computer is specially wired to service these 
special addresses. Think of them as being close to the post office. 
Things get in and out fast at zero page. This is why your BASIC and 
operating system tend to use it so often. 

These two addressing modes — absolute and zero page — are 
very common ones. In your programming, you will probably not use 
zero page as much as you might like. You will notice, on a map of 
your computer's flags and temporary storage areas, that zero page is 
heavily trafficked. You might cause a problem storing things in zero 
page in places used by the OS (operating system) or BASIC. Several 
maps of both zero page and BASIC in ROM can be found in 
Appendix B. 

You can find safe areas to store your own programs' pointers 
and flags in zero page. A buffer (temporary holding area) for the 
cassette drive or for BASIC's floating point numbers might be used 
only during cassette loads and saves or during BASIC RUNs to 
calculate numbers. So, if your flags and pointers were stored in these 
addresses, things would be fine unless you involved cassette 
operations. In any case, zero page is a popular, busy neighborhood. 
Don't put any ML programs in there. Your main use of zero page is 
for the very efficient "indirect Y" addressing we'll get to in a minute. 
But you've always got to check your computer's memory map for 
zero page to make sure that you aren't using bytes which the 
computer itself uses. 

By the way, don't locate your ML programs in page one (256-511 
decimal) either. That's for the "stack," about which more later. We'll 
identify where you can safely store your ML programs in the various 
computers. It's always OK to use RAM as long as you keep BASIC 
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programs from putting their variables on top of ML, and keep ML 
from writing over your BASIC assembler program (such as the 
Simple Assembler). 

Immediate 

Another very common addressing mode is called immediate 
addressing — it deals directly with a number. Instead of sending out 
for a number, we can just shove it immediately into the accumulator 
by putting it right in the place where other addressing modes have an 
address. Let's illustrate this: 

1000 LDA $2500 (Absolute mode) 

1000 LDA #$09 (Immediate mode) 

The first example will load the accumulator with whatever 
number it finds at address $2500. In the second example, we simply 
wanted to put a 9 into the accumulator. We know that we want the 
number 9. So, instead of sending off for the 9, we just type a 9 in 
where we would normally type a memory address. And we tack on a 
# symbol to show that the 9 is the number we're after. Without the #, 
the computer will load the accumulator with whatever it finds at 
address number 9 (LDA $09). That would be zero page addressing, 
instead of immediate addressing. 

In any case, immediate addressing is very frequently used, since 
you often know already what number you are after and do not need 
to send for it at all. So, you just put it right in with a #. This is similar 
to BASIC where you define a variable (10 VARIABLE =9). In this 
case, we have a variable being given a known value. LDA #9 is the 
same idea. In other words, immediate addressing is used when you 
know what number you want to deal with; you're not sending off for 
it. It's put right into the ML code as a number, not as an address. 

To illustrate immediate and absolute addressing modes working 
together, let's imagine that we want to copy a 15 into address $4000. 
(See Program 4-2.) 

Implied 

Here's an easy one. You don't use any address or argument with this 
one. 

This is among the more obvious modes. It's called implied, 
since the mnemonic itself implies what is being sent where: TXA 
means transfer X register's contents to the Accumulator. Implied 
addressing means that you do not put an address after the instruction 
(mnemonic) the way you would with most other forms of addressing. 

It's like a self-addressed, stamped envelope. TYA and others are 
similar short-haul moves from one register to another. Included in 
this implied group are the SEC, CLC, SED, CLD instructions as well. 
They merely clear or set the flags in the status register, letting you 





Program 4-2. Putting An Immediate 15 Into Absolute Address 4000. 
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and the computer keep track of whether an action resulted in a zero, 
if a “carry” has occurred during addition or subtraction, etc. 

Also “implied" are such instructions as RTS (ReTurn from 
Subroutine), BRK (BReaK), PLP, PHP, PLA, PHA (which “push” or 
"pull" the processor status register or accumulator onto or off the 
stack). Such actions, and increasing by one (incrementing) the X or Y 
register's number (INX, INY) or decreasing it (DEX, DEY), are also 
called "implied." What all of these implied addresses have in 
common is the fact that you do not need to actually give any address. 
By comparison, an LDA $2500 mode (the absolute mode) must have 
that $2500 address to know where to pick up the package. TXA 
already says, in the instruction itself, that the address is the X register 
and that the destination will be the accumulator. Likewise, you do 
not put an address after RTS since the computer always memorizes 
its jump-off address when it does a JSR (Jump to Subroutine). NOP 
(No OPeration) is, of course, implied mode too. 

Relative 

One particular addressing mode, the relative mode, used to be a real 
headache for programmers. Not so long ago, in the days when ML 
programming was done "by hand," this was a frequent source of 
errors. Hand computing — entering each byte by flipping eight 
switches up or down and then pressing an ENTER key — meant that 
the programmer had to write his program out on paper, translate the 
mnemonics into their number equivalents, and then "key" the whole 
thing into the machine. It was a big advance when computers would 
accept hexadecimal numbers which permitted entering OF instead of 
eight switches: 00001111. This reduced errors and fatigue. 

An even greater advance was when the machines began having 
enough free memory to allow an assembler program to be in the 
computer while the ML program was being written. An assembler 
not only takes care of translating LDA $2500 into its three (eight- 
switch binary) numbers: 10101101 00000000 00100101, but it also 
does relative addressing. So, for the same reason that you can 
program in ML without knowing how to deal with binary numbers — 
you can also forget about relative addressing. The assembler will do it 
for you. 

Relative addressing is used with eight instructions only: BVS, 
BVC, BCS, BCC, BEQ, BMI, BNE, BPL. They are all "branching" 
instructions. Branch on: overflow flag set (or cleared), carry flag set 
(or cleared), equal, minus, not-equal, or plus. Branch if Not-Equal, 
like the rest of this group, will jump up to 128 addresses forward or 
backward from where it is or 127 addresses backward (if the result of 
the most recent activity is "not equal"). Note that these jumps can be 
a distance of only 128, or 127 back, and they can go in either direction. 
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You specify where the jump should go by giving an address within 
these boundaries. Here's an example: 

1000 LDX #$00 

1002 INX 

1003 BNE 1002 

1005 BRK 

(The X register will count up by ones until it hits 255 decimal and 
then it resets itself to zero.) 

This is what you type in to create a ML FOR-NEXT loop. You are 
branching, relative to address 1003, which means that the assembler 
will calculate what address to place into the computer that will get 
you to 1002. You might wonder what's wrong with the computer just 
accepting the number 1002 as the address to which you want to 
branch. Absolute addressing does give the computer the actual 
address, but the branching instructions all need addresses which are 
"offsets" of the starting address. The assembler puts the following 
into the computer: 

1000 A2 00 

1002 E8 

1003 DO FD 

1005 00 

The odd thing about this piece of code is that "FD" at 1004. How 
does FD tell the computer to Branch back to 1002? (Remember that X 
will increment up to 255, then reset to zero on the final increment.) 
$FD means 253 decimal. Now it begins to be clear why relative 
addressing is so messy. If you are curious, numbers larger than 127, 
when found as arguments of relative addressing instructions, tell the 
computer to go back down to lower addresses. What's worse, the 
larger the number, the less far down it goes. It counts the address 1005 
as zero and counts backwards thus: 

1005 = 0 

1004 = 255 

1003 = 254 

1002 = 253 

Not a very pretty counting method! Luckily, all that we 
fortunate assembler users need do is to give the address (as if it were 
an absolute address), and the assembler will do the hard part. This 
strange counting method is the way that the computer can handle 
negative numbers. The reason it can only count to 128 is that the 
leftmost bit is no longer used as a 128th's column. Instead, this bit is 
on or off to signify a positive or negative number. 
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When you are using one of the branch instructions, you 
sometimes branch forward. Let's say that you want to have a 
different kind of FOR-NEXT loop: 

1000 LDX #0 

1002 INX 

1003 BEQ 100A 

1005 JMP 1002 

1008 BRK 

1009 BRK 

100A BRK 

When jumping forward, you often do not yet know the precise 
address you want to branch to. In the example above, we really 
wanted to go to 1008 when the loop was finished (when X was equal 
to zero), but we just entered an approximate address (100A) and 
made a note of the place where this guess appeared (1004). Then, 
using the POKE function on the assembler, we can POKE the correct 
offset when we know what it should be. Forward counting is easy. 
When we finally saw that we wanted to go to 1008, we would POKE 
1004, 3. (The assembler would have written a five because that's the 
correct offset to branch to 100A, our original guess.) 

Remember that the zero address for these relative branches is 
the address immediately following the branch instructions. For 
example, a jump to 1008 is three because you count: 1005 a zero, 

1006 = 1,1007 = 2,1008 = 3. All this confusion disappears after writing 
a few programs and practicing with estimated branch addresses. 
Luckily, the assembler does all the backwards branches. That's lucky 
because they are much harder to calculate. 

Unknown Forward Branches 

Also, the Simple Assembler will do one forward (''not-yet-known'') 
branch calculation for you. If you look at the BASIC program listing of 
the Simple Assembler, you will see that the pseudo-ops (fake 
operations) are located from line 241 up. You could add additional 
forward-resolving pseudo-ops if you just give them new names like 
FI resolved later by Rl. Alternatively, you can type a guess in for the 
forward branches, as we just did in the example above. Then, when 
you find out the exact address, simply exit from the assembler, give 
1004 as your starting address for assembly, and write in BEQ 1008 and 
let the assembler calculate for you. Either way, you will soon get the 
hang of forward branching. 

We'll get into pseudo-ops later. Essentially, they are instructions 
to the assembler (such as "please show me the decimal equivalent of 
the following hex number"), but which are not intended to be 
thought of as mnemonics which get translated into ML object code. 
Pseudo-ops are "false" operations, not part of the 6502 instruction set. 
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They are requests to the assembler program to perform some extra 
service for the programmer. 

Absolute,X And Absolute,Y 

Another important addressing mode provides you with an easy way 
to manipulate lists or tables. This method looks like absolute 
addressing, but it attaches an X or a Y to the address. The X or Y 
stands for the X or Y registers, which are being used in this technique 
as offsets. That is, if the X register contains the number 3 and you 
type: LDA 1000, X, you will LoaD the Accumulator with the value 
(the number) which is in memory cell 1003. The register value is added to 
the absolute address. 

Another method called Zero Page,X works the same way: 

LDA 05,X. This means that you can easily transfer or search through 
messages, lists, or tables. Error messages can be sent to the screen 
using such a method. Assume that the words SYNTAX ERROR are 
held in some part of memory because you sometimes need to send 
them to the screen from your program. You might have a whole table 
of such messages. But we'll say that the words SYNTAX ERROR are 
stored at address 3000. Assuming that your screen memory address is 
32768 (8000 hex), here's how you would send the message: 


1000 

LDX 

#$00 

(set the counter register to zero) 

1002 

LDA 

$3000, X 

(get a letter at 3000 + X) 

1005 

BEQ 

$100E 

(if the character is a zero, we've 
reached the end of message, 
so we end the routine) 

1007 

STA 

$8000, X 

(store a letter on the screen) 

100A 

INX 


(increment the counter so the next 
letter in the message, as well as the 
next screen position, are pointed 
to) 

100B 

JMP 

$1002 

(jump to the load instruction to 
fetch the next character) 

100 E 

BRK 


(task completed, message 
transferred) 


This sort of indexed looping is an extremely common ML 
programming device. It can be used to create delays (FOR T = 1 TO 
5000: NEXT T), to transfer any kind of memory to another place, to 
check the conditions of memory (to see, for example, if a particular 
word appears somewhere on the screen), and to perform many other 
applications. It is a fundamental, all-purpose machine language 
technique. 

Here's a fast way to fill your screen or any other area of memory. 
This example uses the Commodore 64 Screen RAM starting address. 
Just substitute your computer's screen-start address. This is a full 
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source code for the demonstration screen-fill we tried in Chapter 1. 
See if you can follow how this indexed addressing works. What bytes 
are filled in, and when? At ML speeds, it isn't necessary to fill them in 
order — nobody would see an irregular filling pattern because it all 
happens too fast for the eye to see it, like magic. (See Program 4-3.) 

Compare this to Program 1-2 to see the effects of using a 
different screen starting address and how source code is an expansion 
of a disassembly. 

Indirect Y 

This one is a real workhorse; you'll use it often. Several of the 
examples in this book refer to it and explain it in context. It isn't so 
much an address in itself as it is a method of creating an address. It 
looks like this: 

$4000 STA ($80),Y 

Seems innocent enough. But watch out for the parentheses. 

They mean that $80 is not the real address we are trying to store A 
into. Instead, addresses $80 and $81 are holding the address we are 
really sending our byte in A to. We are not dealing directly with $0080 
here; hence the name for this addressing mode: indirect Y. 

If $80,81 have these numbers in them: 

$0080 01 

$0081 20 

and Y is holding a five, then the byte in A will end up in address 
$2006! How did we get $2006? 

First, we've got to mentally switch the numbers in $80,81. The 
6502 requires that such “address pointers" be held in backwards 
order. So visualize $80,81 as forming $2001, a pointer. Then add the 
value in Y, which is five, and you get $2006. 

This is a valuable tool and you should familiarize yourself with 
it. It lets you have easy access to many memory locations very quickly 
by just changing the Y register or the pointer. To go up a page, add 
one to the number in $0081. To go down four pages, subtract four 
from it. Combine this with the indexing that Y is doing for you and 
you've got great efficiency. The pointers for this addressing mode 
must be stored in zero page locations. 

When an address is put into a pointer, you can see that it was 
split in half. The address $2001 was split in the example above. It's a 
two-byte number and ML terminology distinguishes between the 
bytes by saying that one is the LSB (least significant byte) and the 
other is the MSB (most significant byte). The $01 is the least 
significant. To grasp what is meant by “significant,'' imagine 
chopping a decimal number such as 5015 in half. Since the left half, 

50, stands for fifty 100's and the right half stands for 15 ones. 
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0010 .BA 40000 ; (NOTICE IT'S DECIMAL) 

0020 ; 

0030 CHAR.A .DE $41 ; CHARACTER "A" 

0040 ; 
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obviously the leftmost half, the 100's, is more significant. Likewise, 
the left half of a two-byte hex number like $2001 is the most 
significant byte. The $20 stands for 32 times 256 (in decimal terms). 

It's easy to multiply double-byte numbers by decimal 256 by just 
adding one to the MSB. This would be a quick way of moving 
through the "pages" in memory. 

The other thing to remember about MSB,LSB is that they are 
reversed when broken up and used as an address pointer: LSB,MSB. 

Indirect X 

Not often used, this mode makes it possible to set up a group of 
pointers (a table) in page zero. It's like Indirect Y except the X register 
value is not added to the address pointer to form the ultimate address 
desired. Rather, it points to which of the pointers to use. Nothing is 
added to the address found in the pointer. 

It looks like this: 

$5000 STA ($90, X) 

To see it in action, let's assume that part of zero page has been 
set up to point to various parts of memory. A table of pointers, not 


just one: 


$0090 $00 

Pointer #1 

$0091 $04 

(it points to $0400) 

$0092 $05 

Pointer #2 

$0093 $70 

($7005) 

$0094 $EA 

Pointer #3 

$0095 $80 

(pointing to $80EA) 

If X holds 

a two when we STA $(90,X), then the byte in A will be 


sent to $7005. If X holds a four, the byte will go to $80EA. 

All in all, this has relatively little merit. It would be useful in rare 
situations, but at least it's there if you should find you need it. 

Accumulator Mode 

ASL, LSR, ROL, and ROR shift or manipulate the bits in the byte in 
the accumulator. We'll touch on them in the chapter on the 
instruction set. They don't have much to do with addressing, but 
they are always listed as a separate addressing mode. 

Zero Page,Y 

This can only be used with LDX and STX. Otherwise it operates just 
like Zero Page, X discussed above. 

There you have them, thirteen addressing modes to choose 
from. The six you should focus on and practice are: Immediate, 
Absolute (plus Absolute, Y and ,X), Zero Page, and Indirect Y. The 
rest are either automatic (implied) or not really worth bothering with 
until you have full command of the six common and useful ones. 

Now that we've surveyed the ways you can move numbers 
around, it's time to see how to do arithmetic in ML. 
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There'll be many things you'll want to do in ML, but complicated 
math is not one of them. Mathematics beyond simple addition and 
subtraction (and a very easy form of elementary division and 
multiplication) will not be covered in this book. For most games and 
other ML for personal computing, you will rarely need to program 
with any complex math. In this chapter we will cover what you are 
likely to want to know. BASIC is well-suited to mathematical 
programming and is far easier to program for such tasks. 

Before we look at ML arithmetic, it is worth reviewing an 
important concept: how the computer tells the difference between 
addresses, numbers as such, and instructions. It is valuable to be able 
to visualize what the computer is going to do as it comes upon each 
byte in your ML routine. 

Even when the computer is working with words, letters of the 
alphabet, graphics symbols and the like — it is still working with 
numbers. A computer works only with numbers. The ASCII code is a 
convention by which the computer understands that when the 
context is alphabetic, the number 65 means the letter A. At first this is 
confusing. How does it know when 65 is A and when it is just 65? The 
third possibility is that the 65 could represent the 65th cell in the 
computer's memory. 

It is important to remember that, like us, the computer means 
different things at different times when it uses a symbol (like 65). We 
can mean a street address by it, a temperature, the cost of a milk 
shake, or even a secret code. We could agree that whenever we used 
the symbol "65" we were ready to leave a party. The point is that 
symbols aren't anything in themselves. They stand for other things, 
and what they stand for must be agreed upon in advance. There must 
be rules. A code is an agreement in advance that one thing 
symbolizes another. 

The Computer’s Rules 

Inside your machine, at the most basic level, there is a stream of 
input. The stream flows continually past a "gate" like a river through 
a canal. For 99 percent of the time, this input is zeros. (BASICs differ; 
some see continuous 255's, but the idea is the same.) You turn it on 
and the computer sits there. What's it doing? It might be updating a 
clock, if you have one, and it's holding things coherent on the TV 


53 




5 Arithmetic 


screen — but it mainly waits in an endless loop for you to press a key 
on your keyboard to let it know what it's supposed to do. There is a 
memory cell inside (this, too, varies in its location) which the 
computer constantly checks. On some computers, this cell always has 
a 255 in it unless a key is pressed. If you press the RETURN key, a 13 
will replace the 255. At last, after centuries (the computer's sense of 
time differs from ours) here is something to work with! Something 
has come up to the gate at long last. 

You notice the effect at once — everything on the screen moves 
up one line because 13 (in the ASCII code) stands for carriage return. 
How did it know that you were not intending to type the number 13 
when it saw 13 in the keyboard sampling cell? Simple. The number 
13, and any other keyboard input, is always read as an ASCII number. 

In ASCII, the digits from 0 through 9 are the only number 
symbols. There is no single symbol for 13. So, when you type in a 1 
followed immediately by a 3, the computer's input-from-the- 
keyboard routine scans the line on the screen and notices that you 
have not pressed the "instant action" keys (the STOP, BREAK, ESC, 
TAB, cursor-control keys, etc.). Rather, you typed 1 and 3 and the 
keyboard sampling cell (the "which key pressed" address in zero 
page) received the ASCII value for one and then for three. ASCII 
digits are easy to remember in hex: zero is 30,1 is 31, and up to 39 for 
nine. In decimal, they are 48 through 57. 

The computer decides the "meaning" of the numbers which 
flow into and through it by the numbers' context. If it is in 
"alphabetic" mode, the computer will see the number 65 as "a"; or if 
it has just received an "a," it might see a subsequent number 65 as an 
address to store the "a". It all depends on the events that surround a 
given number. We can illustrate this with a simple example: 

2000 LDA #65 A9 (169) 41 (65) 

2000 STA $65 85 (133) 41 (65) 

This short ML program (the numbers in parentheses are the 
decimal values) shows how the computer can "expect" different 
meanings from the number 65 (or 41 hex). When it receives an 
instruction to perform an action, it is then prepared to act upon a 
number. The instruction comes first and, since it is the first thing the 
computer sees when it starts a job, it knows that the A9 (169) is 
not a number. It has to be one of the ML instructions from its set of 
instructions (see Appendix A). 

Instructions And Their Arguments 

The computer would no more think of this first 169 as the number 169 
than you would seal an envelope before the letter was inside. If you 
are sending out a pile of Christmas cards, you perform instruction- 
argument just the way the computer does: you (1) fill the envelope 


54 





Arithmetic 5 


(instruction) (2) with a card (argument or operand). All actions do 
something to something. A computer's action is called an instruction 
(or, in its numeric form inside the computer's memory it's called an 
opcode for operation code). The target of the action is called the 
instruction's argument (operand). In our program above, the 
computer must LoaD Accumulator with 65. The # symbol means 
“immediate"; the target is right there in the next memory cell 
following the mnemonic LDA, so it isn't supposed to be fetched from 
a distant memory cell. 

Then the action is complete, and the next number (the 133 which 
means STore Accumulator in zero page, the first 256 cells) is seen as 
the start of another complete action. The action of storing always 
signals that the number following the store instruction must be an 
address of a cell in memory to store to. 

Think of the computer as completing each action and then 
looking for another instruction. Recall from the last chapter that the 
target can be “implied" in the sense that INX simply increases the X 
register by one. That “one" is “implied" by the instruction itself, so 
there is no target argument in these cases. The next cell in this case 
must also contain an instruction for a new instruction-argument cycle. 

Some instructions call for a single-byte argument. LDA #65 is of 
this type. You cannot LoaD Accumulator with anything greater than 
255. The accumulator is only one byte large, so anything that can be 
loaded into it can also be only a single byte large. Recall that $FF (255 
decimal) is the largest number that can be represented by a single 
byte. STA $65 also has a one byte argument because the target 
address for the STore Accumulator is, in this case, in zero page. 
Storing to zero page or loading from it will need only a one byte 
argument — the address. Zero page addressing is a special case, but 
an assembler program will take care of it for you. It will pick the 
correct opcode for this addressing mode when you type LDA $65. 
LDA $0065 would create ML code that performs the same operation 
though it would use three bytes instead of two to do it. 

The program counter is like a finger that keeps track of where 
the computer is located in its trip up a series of ML instructions. Each 
instruction takes up one, two, or three bytes, depending on what 
type of addressing is going on. 

Context Defines Meaning 

TXA uses only one byte so the program counter (PC) moves ahead 
one byte and stops and waits until the value in the X register is moved 
over to the accumulator. Then the computer asks the PC, “Where are 
we?" and the PC is pointing to the address of the next instruction. It 
never points to an argument. It skips over them because it knows 
how many bytes each addressing mode uses up in a program. 

Say that the next addresses contain an LDA $15. This is two 
bytes long (zero page addressing). The PC is raised by two. The 
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longest possible instruction would be using three bytes, such as LDA 
$5000 (absolute addressing). Here the argument takes up two bytes. 
Add that to the one byte used by any instruction and you have a total 
of three bytes for the PC to count off. Zero page LDA is represented 
by the number A5 and Absolute LDA is AD. Since the opcodes are 
different, even though the mnemonics are identical, the computer 
can know how many bytes the instruction will use up. 

Having reviewed the way that your computer makes contextual 
sense out of the mass of seemingly similar numbers of which an ML 
program is composed, we can move on to see how elementary 
arithmetic is performed in ML. 

Addition 

Arithmetic is performed in the accumulator. The accumulator holds 
the first number, the target address holds the second number (but is 
not affected by the activities), and the result is left in the accumulator. 
So: 

LDA #$40 (remember, the # means immediate, the $ means 
hex) 

ADC #$01 

will result in the number 41 being left in the accumulator. We could 
then STA that number wherever we wanted. Simple enough. The 
ADC means ADd with Carry. If this addition problem resulted in a 
number higher than 255 (if we added, say, 250+6), then there would 
have to be a way to show that the number left behind in the 
accumulator was not the correct result. What's left behind is the carry. 
What would happen after adding 250 + 6 is that the accumulator 
would contain a 1. To show that the answer is really 256 (and not 1), 
the "carry flag" in the status register flips up. So, if that flag is up, we 
know that the real answer is 255 plus the 1 left in the accumulator. 

To make sure that things never get confused, always put in a 
CLC (CLear Carry) before any addition problems. Then the flag will 
go down before any addition and, if it is up afterward, we'll know 
that we need to add 256 to whatever is in the accumulator. We'll 
know that the accumulator holds the carry, not the total result. 

One other point about the status register: there is another flag, 
the "decimal" flag. If you ever set this flag up (SED), all addition and 
subtraction is performed in a decimal mode in which the carry flag is 
set when addition exceeds 99. In this book, we are not going into the 
decimal mode at all, so it's a good precaution to put a CLear Decimal 
mode (CLD) instruction as the first instruction of any ML program 
you write. After you type CLD, the flag will be put down and the 
assembler will move on to ask for your next instruction, but all the 
arithmetic from then on will be as we are describing it. 
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Adding Numbers Larger Than 255 

We have already discussed the idea of setting aside some memory 
cells as a table for data. All we do is make a note to ourselves that, 
say, $80 and $81 are declared a zone for our personal use as a storage 
area. Using a familiar example, let's think of this zone as the address 
that holds the address of a ball-like character for a game. As long as 
the addresses are not in ROM, or used by our program elsewhere, or 
used by the computer (see your computer's memory map), it's fine to 
declare any area a data zone. It is a good idea (especially with longer 
programs) to make notes on a piece of paper to show where you 
intend to have your subroutines, your main loop, your initialization, 
and all the miscellaneous data — names, messages for the screen, 
input from the keyboard, etc. This is one of those things that BASIC 
does for you automatically, but which you must do for yourself in 
ML. 

When BASIC creates a string variable, it sets aside an area to 
store variables. This is what DIM does. In ML, you set aside your own 
areas by simply finding a safe and unused memory space and then 
not writing a part of your program into it. Part of your data zone can 
be special registers you declare to hold the results of addition or 
subtraction. You might make a note to yourself that $80 and $81 will 
hold the current address of the bouncing ball in your game. Since the 
ball is constantly in motion, this register will be changing all the time, 
depending on whether the ball hit a wall, a paddle, etc. Notice that 
you need two bytes for this register. That is because one byte could 
hold only a number from 0 to 255. Two bytes together, though, can 
hold a number up to 65535. 

In fact, a two-byte register can address any cell in most 
microcomputers because most of us have machines with a total of 
65536 memory cells (from zero to 65535). So if your ball is located (on 
your screen) at $8000 and you must move it down one, just change 
the ball-address register you have set up. If your screen has 40 
columns, you would want to add 40 to this register. 

The ball address register now looks like this: $0080 00 80 
(remember that the higher, most significant byte, comes after the LSB, 
the least significant byte in the 6502's way of looking at pointers). We 
want it to be: $0080 28 80. (The 28 is hex for 40.) In other words, 
we're going to move the ball down one line on a 40-column screen. 

Remember the “indirect Y" addressing mode described in the 
previous chapter? It lets us use an address in zero page as a pointer to 
another address in memory. The number in the Y register is added to 
whatever address sits in 80,81, so we don't STA to $80 or $81, but 
rather to the address that they contain. STA ($80), Y or, using the 
simplified punctuation rules of the Simple Assembler: STA (80)Y. 
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Moving A Ball Down 

How to add $28 to the ball address register? First of all, CLC, clear the 
carry to be sure that flag is down. To simplify our addition, we can set 
aside another special register which serves only to hold the $28 as a 
double-byte number all through the game: $4009 28 00. This is the 
size of one screen line in our 40-column computer and it won't 
change. Since it moves the ball down one screen line, it can be used 
equally well for a subtraction that would move the ball up one screen 
line as well. Now to add them together: 


1000 CLC (1000 is our "add 40 to ball address" 

subroutine) 

1001 LDA $80 (we fetch the LSB of ball address) 

1003 ADC $4009 (LSB of our permanent screen line size) 
1006 STA $80 (put the new result into the ball address) 

1008 LDA $81 (get the MSB of ball address) 

100A ADC $400A (add with carry to the MSB of screen value) 
100D STA $81 (update the ball address MSB) 


That's it. Any carry will automatically set the carry flag up 
during the ADC action on the LSB and will be added into the result 
when we ADC to the MSB. It's all quite similar to the way that we 
add ordinary decimal numbers, putting a carry onto the next column 
when we get more than a 10 in the first column. And this carrying is 
why we always CLC (clear the carry flag, putting it down) just before 
additions. If the carry is set, we could get the wrong answer if our 
problem did not result in a carry. Did the addition above cause a 
carry? 

Note that we need not check for any carries during the 
MSB + MSB addition. Any carries resulting in a screen address greater 
than $FFFF (65535) would be impossible on our machines. The 6502 is 
permitted to address $FFFF tops, under normal conditions. 


Subtraction 

As you might expect, subtracting single-byte numbers is a snap: 

LDA #$41 
SBC #$01 

results in a $40 being left in the accumulator. As before, though, it is 
good to make it a habit to deal with the carry flag before each 
calculation. When subtracting, however, you set the carry flag: SEC. 
Why is unimportant. Just always SEC before any subtractions, and 
your answers will be correct. Here's double subtracting that will 
move the ball up the screen one line instead of down one line: 

$1020 SEC ($1020 is our "take 40 from ball address" 

subroutine) 

1021 LDA $80 (get the LSB of ball address) 
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1023 SBC $4009 (LSB of our permanent screen line value) 

1026 STA $80 (put the new result into the ball address) 

1028 LDA $81 (get the MSB of ball address) 

102A SBC $400A (subtract the MSB of screen value) 

102D STA $81 (update the ball address MSB) 

Multiplication And Division 

Multiplying could be done by repeated adding. To multiply 5x4, you 
could just add 4 + 4 + 4+4+4. One way would be to set up two 
registers like the ones we used above, both containing 04, and then 
loop through the addition process five times. For practical purposes, 
though, multiplying and dividing are much more easily accomplished 
in BASIC. They simply are often not worth the trouble of setting up in 
ML, especially if you will need results involving decimal points 
(floating point arithmetic). Perhaps surprisingly, for the games and 
personal computing tasks where creating ML routines is useful, there 
is little use either for negative numbers or arithmetic beyond simple 
addition and subtraction. 

If you find that you need complicated mathematical structures, 
create the program in BASIC, adding ML where super speeds are 
necessary or desirable. Such hybrid programs are efficient and, in 
their way, elegant. One final note: an easy way to divide the number 
in the accumulator by two is to LSR it. Try it. Similarly, you can 
multiply by two with ASL. We'll define LSR and ASL in the next 
chapter. 

Double Comparison 

One rather tricky technique is used fairly often in ML and should be 
learned. It is tricky because there are two branch instructions which 
seem to be worth using in this context, but they are best avoided. If 
you are trying to keep track of the location of a ball on the screen, it 
will have a two-byte address. If you need to compare those two bytes 
against another two-byte address, you need a “double compare" 
subroutine. You might have to see if the ball is out of bounds or if 
there has been a collision with some other item flying around on 
screen. Double compare is also valuable in other kinds of ML 
programming. 

The problem is the BPL (Branch on PLus) and BMI (Branch on 
Minus) instructions. Don't use them for comparisons. In any 
comparisons, single- or double-byte, use BEQ to test if two numbers 
are equal; BNE for not equal; BCS for equal or higher; and BCC for 
lower. You can remember BCS because its "S" is higher and BCC 
because its "C" is lower in the alphabet. To see how to perform a 
double-compare, here's one easy way to do it. (See Program 5-1.) 
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This is a full-dress, luxurious assembler at work. With such assem¬ 
blers you can use line numbers and labels, add numbers to labels (see 
TESTED +1 in line 150), add comments, and all the rest. To try this out, 
type in the hex bytes on the left, starting at address $1010, which make 
up the program itself. Then fill bytes $1000-100f with zeros — that's your 
storage area for the numbers you are comparing as well as a simulated 
"landing place" where your computer will branch, demonstrating that 
the comparison worked correctly. 

Now try putting different numbers into the two-byte zones called 
TESTED and SECOND. TESTED, at $1000, is the first, the tested, num¬ 
ber. It's being tested against the second number, called SECOND. As 
you can see, you've got to keep it straight in your mind which number 
is the primary number. There has to be a way to tag them so that it 
means something when you say that one is larger (or smaller) than the 
other. 

When you've set up the numbers in their registers ($1000 to $1003), 
you can run this routine by starting at $1010. All that will happen is that 
you will land on a BRK instruction. Where you land tells you the result 
of the comparison. If the numbers are equal, you land at $1005. If the 
TESTED number is less than the SECOND number, you'll end up at 
$1004. If all you needed to find out was whether they were unequal, 
you could use BNE. Or you could leave out branches that you weren't 
interested in. Play around with this routine until you've understood 
the ideas involved. 

In a real program, of course, you would be branching to the 
addresses of subroutines which do something if the numbers are equal 
or greater or whatever. This example sends the computer to $1004, 

$1005, or $1006 just to let you see the effects of the double-compare sub¬ 
routine. Above all, remember that comparing in ML is done with BCS 
and BCC (not BPL or BMI). 
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The Instruction Set 

There are 56 instructions (commands) available in 6502 machine 
language. Most versions of BASIC have about 50 commands. Some 
BASIC instructions are rarely used by the majority of programmers: 
USR, END, SGN, TAN, etc. Some, such as END and LET, contribute 
nothing to a program and seem to have remained in the language for 
nostalgic reasons. Others, like TAN, have uses that are highly 
specialized. There are surplus commands in computer languages just 
as there are surplus words in English. People don't often say 
culpability. They usually say guilt. The message gets across without 
using the entire dictionary. The simple, common words can do the 
job. 

Machine language is the same as any other language in this 
respect. There are around 20 heavily used instructions. The 36 
remaining ones are far less often used. Load the disassembler 
program in Appendix D and enter the starting address of your 
computer's BASIC in ROM. You can then read the machine language 
routines which comprise it. You will quickly discover that the 
accumulator is heavily trafficked (LDA and STA appear frequently), 
but you will have to hunt to find an ROR, SED, CLV, RTI, or BVC. 

ML, like BASIC, offers you many ways to accomplish a given 
job. Some programming solutions, of course, are better than others, 
but the main thing is to get the job done. An influence still lingers 
from the early days of computing when memory space was rare and 
expensive. This influence — that you should try to write programs 
using up as little memory as possible — is usually safely ignored. 
Efficient memory use will often be low on your list of objectives. It 
could hardly matter if you used up 25 instead of 15 bytes to print a 
message to your screen when your computer has space for programs 
which exceeds 30,000 bytes. 

Rather than memorize each instruction individually, we will 
concentrate on the workhorses. Bizarre or arcane instructions will get 
only passing mention. Unless you are planning to work with ML for 
interfacing or complex mathematics and such, you will be able to 
write excellent machine language programs for nearly any application 
with the instructions we'll focus on here. 

For each instruction group, we will describe three things before 
getting down to the details about programming with them. 1. What 
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the instructions accomplish. 2. The addressing modes you can use 
with them. 3. What they do, if anything, to the flags in the Status 
Register. All of this information is also found in Appendix A. 

The Six Instruction Groups 

The best way to approach the "instruction set" might be to break it 
down into the following six categories which group the instructions 
according to their functions: 1. The Transporters 2. The Arithmetic 
Group 3. The Decision-makers 4. The Loop Group 5. The Subroutine 
and Jump Group and 6. The Debuggers. We will deal with each group 
in order, pointing out similarities to BASIC and describing the major 
uses for each. 

As always, the best way to learn is by doing. Move bytes 
around. Use each instruction, typing a BRK as the final instruction to 
see the effects. If you LDA #65, look in the A register to see what 
happened. Then STA $12 and check to see what was copied into 
address $12. If you send the byte in the accumulator (STA), what's 
left behind in the accumulator? Is it better to think of bytes as being 
copied rather than being sent? 

Play with each instruction to get a feel for it. Discover the effects, 
qualities, and limitations of these ML commands. 


I. The Transporters: 

LDA, LDX, LDY 
STA, STX, STY 
TAX, TAY 
TXA, TYA 

These instructions move a byte from one place in memory to 
another. To be more precise, they copy what is in a source location 
into a target location. The source location still contains the byte, but 
after a "transporter" instruction, a copy of the byte is also in the 
target. This does replace whatever was in the target. 

All of them affect the N and Z flags, except STA, STX, and STY 
which do nothing to any flag. 

There are a variety of addressing modes available to different 
instructions in this group. Check the chart in Appendix A for 
specifics. 

Remember that the computer does things one at a time. Unlike 
the human brain which can carry out up to 1000 different instructions 
simultaneously (walk, talk, and smile, all at once) — the computer 
goes from one tiny job to the next. It works through a series of 
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instructions, raising the program counter (PC) each time it handles an 
instruction. 

If you do a TYA, the PC goes up by one to the next address and 
the computer looks at that next instruction. STA $80 is a two-byte 
long instruction, it's zero page addressing, so the PC = PC + 2. STA 
$8500 is a three-byte long absolute addressing mode and PC=PC+ 3. 

Recall that there's nothing larger than a three-byte increment of 
the PC. However, in each case, the PC is cranked up the right amount 
to make it point to the address for the next instruction. Things would 
get quickly out of control if the PC pointed to some argument, 
thinking it was an instruction. It would be incorrect (and soon 
disastrous) if the PC landed on the $15 in LDA $15. 

If you type SYS 1024 (or USR or CALL), the program counter is 
loaded with $0400 and the computer "transfers control" to the ML 
instructions which are (we hope!) waiting there. It will then look at 
the byte in $0400, expecting it to be an ML instruction. It will do that 
job and then look for the next instruction. Since it does this very fast, 
it can seem to be keeping score, bouncing the ball, moving the 
paddle, and everything else — simultaneously. It's not, though. It's 
flashing from one task to another and doing it so fast that it creates 
the illusion of simultaneity much the way that 24 still pictures per 
second look like motion in movies. 

The Programmer’s Time Warp 

Movies are, of course, lots of still pictures flipping by in rapid 
succession. Computer programs are composed of lots of individual 
instructions performed in rapid succession. 

Grasping this sequential, step-by-step activity makes our 
programming job easier: we can think of large programs as single 
steps, coordinated into meaningful, harmonious actions. Now the 
computer will put a blank over the ball at its current address, then 
add 40 to the ball's address, then print a ball at the new address. The 
main single-step action is moving information, as single-byte 
numbers, from here to there, in memory. We are always creating, 
updating, modifying, moving and destroying single-byte variables. 
The moving is generally done from one double-byte address to 
another. But it all looks smooth to the player during a game. 

Programming in ML can pull you into an eerie time warp.You 
might spend several hours constructing a program which executes in 
seconds. You are putting together instructions which will later be 
read and acted upon by coordinated electrons, moving at electron 
speeds. It's as if you spent an afternoon slowly and carefully drawing 
up pathways and patterns which would later be a single bolt of 
lightning. 
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Registers 

In ML there are three primary places where variables rest briefly on 
their way to memory cells: the X, the Y, and the A registers. And the 
A register (the accumulator) is the most frequently used. X and Y are 
used for looping and indexing. Each of these registers can grab a byte 
from anywhere in memory or can load the byte right after its own 
opcode (immediate addressing): 

LDX $8000 (puts the number at hex address 8000 into X, 
without destroying it at $8000) 

LDX #65 (puts the number 65 into X) 

LDA and LDY work the same. 

Be sure you understand what is happening here. LDX $1500 
does not copy the "byte in the X register into address $1500." It's just 
the opposite. The number (or "value" as it's sometimes called) in 
$1500 is copied into the X register. 

To copy a byte from X, Y, or A, use STX, STY, or STA. For these 
"store-bytes" instructions, however, there is no immediate 
addressing mode. No STA #15. It would make no sense to have STA 
#15. That would be disruptive, for it would modify the ML program 
itself. It would put the number 15 into the next cell beyond the STA 
instruction within the ML program itself. 

Another type of transporter moves bytes between registers — 
TAY, TAX, TYA, TXA. See the effect of writing the following. Look at 
the registers after executing this: 

1000 LDA #65 
TAY 
TAX 

The number 65 is placed into the accumulator, then transferred 
to the Y register, then sent from the accumulator to X. All the while, 
however, the A register (accumulator) is not being emptied. Sending 
bytes is not a "transfer" in the usual sense of the term "sending." 

It's more as if a Xerox copy were made of the number and then the 
copy is sent. The original stays behind after the copy is sent. 

LDA #15 followed by TAY would leave the 15 in the 
accumulator, sending a copy of 15 into the Y register. 

Notice that you cannot directly move a byte from the X to the Y 
register, or vice versa. There is no TXY or TYX. 

Flags Up And Down 

Another effect of moving bytes around is that it sometimes throws a 
flag up or down in the Status Register. LDA (or LDX or LDY) will 
affect the N and Z, negative and zero, flags. 

We will ignore the N flag. It changes when you use "signed 
numbers," a special technique to allow for negative numbers. For our 
purposes, the N flag will fly up and down all the time and we won't 
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care. If you're curious, signed numbers are manipulated by allowing 
the seven bits on the right to hold the number and the leftmost bit 
stands for positive or negative. We normally use a byte to hold values 
from 0 through 255. If we were working with "signed" numbers, 
anything higher than 127 would be considered a negative number 
since the leftmost bit would be "on" — and an LDA #255 would be 
thought of as -1. This is another example of how the same things (the 
number 255 in this case) could signify several different things, 
depending on the context in which it is being interpreted. 

The Z flag, on the other hand, is quite important. It shows 
whether or not some action during a program run resulted in a zero. 
The branching instructions and looping depend on this flag, and 
we'll deal with the important zero-result effects below with the BNE, 
INX, etc., instructions. 

No flags are affected by the STA, STX, or STY instructions. 

The Stack Can Take Care Of Itself 

There are some instructions which move bytes to and from the stack. 
These are for advanced ML programmers. PHA and PLA copy a byte 
from A to the stack, and vice versa. PHP and PLP move the status 
register to and from the stack. TSX and TXS move the stack pointer to 
or from the X register. Forget them. Unless you know precisely what 
you are doing, you can cause havoc with your program by fooling 
with the stack. The main job for the stack is to keep the return 
addresses pushed into it when you JSR (Jump To Subroutine). Then, 
when you come back from a subroutine (RTS), the computer pulls the 
addresses off the stack to find out where to go back to. 

The one major exception to this warning about fiddling with the 
stack is Atari's USR instruction. It is a worthwhile technique to 
master. Atari owners can move between BASIC and ML programs 
fairly easily, passing numbers to ML via the stack. The parameters 
(the passed numbers) must be pulled off the stack when the ML 
program first takes control of the computer. 

For most ML programming, on the other hand, avoid stack 
manipulation until you are an advanced programmer. If you 
manipulate the stack without great care, you'll give an RTS the wrong 
address and the computer will travel far, far beyond your control. If 
you are lucky, it sometimes lands on a BRK instruction and you fall 
into the monitor mode. The odds are that you would get lucky 
roughly once every 256 times. Don't count on it. Since BRK is rare in 
your BASIC ROM, the chances are pretty low. If your monitor has a 
FILL instruction which lets you put a single number into large 
amounts of RAM memory, you might want to fill the RAM with 
"snow." FILL 1000 8000 00 would put zeros into every address from 
1000 to 8000. This greatly improves the odds that a crash will hit a 
BRK. 
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As an aside, there is another use for a blanket of “zero page 
snow.” Many Atari programs rely on the fact that the computer 
leaves page six ($0600-06FF) pretty much alone. The PET doesn't 
make much use of the second cassette buffer. So, you can safely put 
an ML subroutine in these places to, for example, add a routine which 
customizes an ML word processor. Does your Atari's ML word¬ 
processing program use any memory space in page six? Probably. 
What locations does it use? Fill page six with 00's, put the word- 
processor through its paces, then look at the tracks, the non-zeros, in 
the snow. 


2. The Arithmetic Group: 

ADC, SBC, SEC, CLC 

Here are the commands which add, subtract, and set or clear the 
carry flag. ADC and SBC affect the N, Z, C, and V (overflow) flags. 
CLC and SEC, needless to say, affect the C flag and their only 
addressing mode is Implied. 

ADC and SBC can be used in eight addressing modes: 
Immediate, Absolute, Zero Page, (Indirect,X), (Indirect), Y, Zero 
Page,X, and Absolute, X and Y. 

Arithmetic was covered in the previous chapter. To review, 
before any addition, the carry flag must be cleared with CLC. Before 
any subtraction, it must be set with SEC. The decimal mode should 
be cleared at the start of any program (the initialization): CLD. You 
can multiply by two with ASL and divide by two with LSR. Note that 
you can divide by four with LSR LSR or by eight with LSR LSR LSR. 
You could multiply a number by eight with ASL ASL ASL. What 
would this do to a number: ASL ASL ASL ASL? To multiply by 
numbers which aren't powers of two, use addition plus 
multiplication. To multiply by ten, for example: copy the original 
number temporarily to a vacant area of memory. Then ASL ASL ASL 
to multiply it by eight. Then multiply the stored original by two with 
a single ASL. Then add them together. 

If you're wondering about the V flag, it is rarely used for 
anything. You can forget about the branch which depends on it, BVC, 
too. Only five instructions affect it and it relates to "twos 
complement” arithmetic which we have not touched on in this book. 
Like decimal mode or negative numbers, you will be able to construct 
your ML programs very effectively if you remain in complete 
ignorance of this mode. We have largely avoided discussion of most 
of the flags in the status register: N, V, B, D, and I. This avoidance 
has also removed several branch instructions from our consideration: 
BMI, BPL, BVC, and BVS. These flags and instructions are not 
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usually found in standard ML programs and their use is confined to 
specialized mathematical or interfacing applications. They will not be 
of use or interest to the majority of ML programmers. 

The two flags of interest to most ML programmers are the Carry 
flag and the Zero flag. That is why, in the following section, we will 
examine only the four branch instructions which test the C and Z 
flags. They are likely to be the only branching instructions that you'll 
ever find occasion to use. 

3. The Decision-Makers: 

CMP, BNE, BEQ, BCC, BCS 

The four "branchers" here — they all begin with a "B" — have 
only one addressing mode. In fact, it's an interesting mode unique to 
the "B" instructions and created especially for them: relative 
addressing. They do not address a memory location as an absolute 
thing; rather, they address a location which is a certain distance from 
their position in the ML code. Put another way, the argument of the 
"B" instructions is an offset which is relative to their position. You 
never have to worry about relocating "B" instructions to another part 
of memory. You can copy them and they will work just as well in the 
new location. That's because their argument just says "add five to the 
present address" or "subtract twenty-seven," or whatever argument 
you give them. But they can't branch further back than 127 or further 
forward than 128 bytes. 

None of the brancher instructions have any effect whatsoever on 
any flags; instead, they are the instructions which look at the flags. 
They are the only instructions that base their activity on the condition 
of the status register and its flags. They are why the flags exist at all. 

CMP is an exception. Many times it is the instruction that comes 
just before the branchers and sets flags for them to look at and make 
decisions about. Lots of instructions — LDA is one — will set or 
"clear" (put down) flags — but sometimes you need to use CMP to 
find out what's going on with the flags. CMP affects the N, Z, and C 
flags. CMP has many addressing modes available to it: Immediate, 
Absolute, Zero Page, (Indirect,X), (Indirect), Y, Zero Page,X, and 
Absolute, X and Y. 

The Foundations Of Computer Power 

This decision-maker group and the following group (loops) are the 
basis of our computers' enormous strength. The decision-makers 
allow the computer to decide among two or more possible courses of 
action. This decision is based on comparisons. If the ball hits a wall, 
then reverse its direction. In BASIC, we use IF-THEN and ON-GOTO 


69 





6 The Instruction Set 


structures to make decisions and to make appropriate responses to 
conditions as they arise during a program run. 

Recall that most micros use memory mapped video, which means 
that you can treat the screen like an area of RAM memory. You can 
PEEK and POKE into it and create animation, text, or other visual 
events. In ML, you PEEK by LDA SVIDEO MEMORY and examine 
what you've PEEKed with CMP. You POKE via STA SVIDEO 
MEMORY. 

CMP does comparisons. This tests the value at an address 
against what is in the accumulator. Less common are CPX and CPY. 
Assume that we have just added 40 to a register we set aside to hold 
the current address-location of a ball on our screen during a game. 
Before the ball can be POKEd into that address, we'd better make 
sure that something else (a wall, a paddle, etc.) is not sitting there. 
Otherwise the ball would pass right through walls. 

Since we just increased the location register (this register, we 
said, was to be at $80,81), we can use it to find out if there is blank 
space (32) or something else (like a wall). Recall that the very useful 
"indirect Y" addressing mode allows us to use an address in zero 
page as a pointer to another address in memory. The number in the Y 
register is added to whatever address sits in 80,81; so we don't LDA 
from 80 or 81, but rather from the address that they contain, plus Y's 
value. 

To see what's in our potential ball location, we can do the 
following: 

LDY #0 (we want to fetch from the ball address itself, so we 
don't want to add anything to it. Y is set to zero.) 

LDA (80),Y (fetch whatever is sitting where we plan to next 

send the ball. To review Indirect, Y addressing once 
more: say that the address we are fetching from here 
is $1077. Address $80 would hold the LSB ($77) and 
address $81 would hold the MSB ($10). Notice that 
the argument of an Indirect, Y instruction only 
mentions the lower address of the two-byte 
pointer, the $80. The computer knows that it has to 
combine $80 and $81 to get the full address — and 
does this automatically.) 

At this point in your game, there might be a 32 (ASCII for the 
space or blank character) or some other number which we would 
know indicated a wall, another player, a paddle, etc. Now that this 
questionable number sits in the accumulator, we will CMP it against a 
space. We could compare it with the number which means wall or the 
other possibilities — it doesn't matter. The main thing is to compare it: 
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2000 CMP #32 (is it a space?) 

2002 BNE 200A (Branch if Not Equal [if not 32] to address 200A, 
which contains the first of a series of 
comparisons to see if it's a wall, a paddle, etc. 
On the other hand, if the comparison worked, if 
it was a 32 (so we didn't Branch Not Equal), 
then the next thing that happens is the 
instruction in address 2004. We “fall through” 
the BNE to an instruction which jumps to the 
subroutine (JSR), which moves the ball into 
this space and then returns to address 2007, 
which jumps over the series of comparisons for 
wall, paddle, etc.) 


2004 JSR 3000 
2007 JMP 2020 
200A CMP #128 
200C BNE 2014 
200E JSR 3050 
2011 JMP 2020 
2014 CMP #144 


(the ball printing subroutine) 

(jump over the rest of the comparisons) 

(is it our paddle symbol?) 

(if not, continue to next comparison) 

(do the paddle-handling subroutine and . . .) 
(jump over the rest, as before in 2007) 

(is it a wall. . . and so forth with as many 
comparisons as needed) 


This structure is to ML what ON-GOTO or ON-GOSUB is to 
BASIC. It allows you to take multiple actions based on a single LDA. 
Doing the CMP only once would be comparable to BASIC's IF-THEN. 


Other Branching Instructions 

In addition to the BNE we just looked at, there are BCC, BCS, BEQ, 
BMI, BPL, BVC, and BVS. Learn BCC, BCS, BEQ, and BNE and you 
can safely ignore the others. 

All of them are branching, IF-THEN, instructions. They work in 
the same way that BNE does. You write BEQ followed by the address 
you want to go to. If the result of the comparison is “yes, equal-to- 
zero is true," then the ML program will jump to the address which is 
the argument of the BEQ. “True" here means that something EQuals 
zero. One example that would send up the Z flag (thereby triggering 
the BEQ) is: LDA #00. The action of loading a zero into A sets the Z 
flag up. 

You are allowed to “branch" either forward or backward from 
the address that holds the “B—" instruction. However, you cannot 
branch any further than 128 bytes in either direction. If you want to 
go further, you must JMP (JuMP) or JSR (Jump to SubRoutine). For all 
practical purposes, you will usually be branching to instructions 
located within 30 bytes of your “B" instruction in either direction. 
You will be taking care of most things right near where a CoMPare, or 
other flag-setting event, takes place. 
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If you need to use an elaborate subroutine, simply JSR to it at the 
target address of your branch: 

2000 LDA 65 

2002 CMP 85 (is what was in address 65 equal to what was in 
address 85?) 

2004 BNE 2009 (if Not Equal, branch over the next three bytes 
which perform some elaborate job) 

2006 JSR 4000 (at 4000 sits an elaborate subroutine to take care 
of cases where addresses 65 and 85 turn out to 
be equal) 

2009 (continue with the program here) 

If you are branching backwards, you've written that part of your 
program, so you know the address to type in after a BNE or one of the 
other branches. But, if you are branching forward, to an address in 
part of the program not yet written — how do you know what to give 
as the address to branch to? In complicated two-pass assemblers, you 
can just use a word like "BRANCHTARGET", and the assembler will 
"pass" twice through your program when it assembles it. The first 
"pass" simply notes that your BNE is supposed to branch to 
"BRANCHTARGET," but it doesn't yet know where that is. 

When it finally finds the actual address of "BRANCHTARGET," 
it makes a note of the correct address in a special label table. Then, it 
makes a second "pass" through the program and fills in (as the next 
byte after your BNE or whatever) the correct address of 
"BRANCHTARGET". All of this is automatic, and the labels make 
the program you write (called the source code) look almost like English. 
In fact, complicated assemblers can contain so many special features 
that they can get close to the higher-level languages, such as BASIC: 
(These initial definitions of labels TESTBYTE = 80 
are sometimes called "equates.") NEWBYTE = 99 

2004 LDA TESTBYTE 
2006 CMP NEWBYTE 
2008 BNE BRANCHTARGET 
200A JR SPECIALSUBROUTINE 
BRANCHTARGET 200D ... etc. 

Instead of using lots of numbers (as we do when using the 
Simple Assembler) for the target/argument of each instruction, these 
assemblers allow you to define ("equate") the meanings of words like 
"TESTBYTE" and from then on you can use the word instead of the 
number. And they do somewhat simplify the problem of forward 
branching since you just give (as above) address 200D a name, 
"BRANCHTARGET," and the word at address 2009 is later replaced 
with 200D when the assembler does its passes. 

This is how the example above looks as the source code listing 
from a two-pass, deluxe assembler: 
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Actually, we should note in passing that a 200D will not be the 
number which finally appears at address 2009 to replace 
"BRANCHTARGET". To save space, all branches are indicated as an 
"offset" from the address of the branch. The number which will 
finally replace "BRANCHTARGET" at 2009 above will be three. This 
is similar to the way that the value of the Y register is added to an 
address in zero page during indirect Y addressing (also called 
"indirect indexed"). The number given as an argument of a branch 
instruction is added to the address of the next instruction. So, 

200A + 3=200D. Our Simple Assembler will take care of all this for 
you. All you need do is give it the 200D and it will compute and put 
the 3 in place for you. 

Forward Branch Solutions 

There is one responsibility that you do have, though. When you are 
writing 2008 BNE 200D, how do you know to write in 200D? You can't 
yet know to exactly which address up ahead you want to branch. 
There are two ways to deal with this. Perhaps easiest is to just put in 
BNE 2008 (have it branch to itself). This will result in a FE being 
temporarily left as the target of your BNE. Then, you can make a note 
on paper to later change the byte at 2009 to point to the correct 
address, 200D. You've got to remember to "resolve" that FE to 
POKE in the number to the target address, or you will leave a little 
bomb in your program — an endless loop. The Simple Assembler has 
a POKE function. When you type POKE, you will be asked for the 
address and value you want POKEd. So, by the time you have 
finished coding 200D, you could just type POKE and then POKE 
2009,3. 

The other, even simpler, way to deal with forward branch 
addresses will come after you are familiar with which instructions use 
one, two, or three bytes. This BNE-JSR-TARGET construction is 
common and will always be six away from the present address, an 
offset of 6. If the branch instruction is at 2008, you just count off three: 
200A, 200B, 200C and write BNE 200D. Other, more complex 
branches such as ON-GOTO constructions will also become easy to 
count off when you're familiar with the instruction byte-lengths. In 
any case, it's simple enough to make a note of any unsolved branches 
and correct them before running the program. 

Alternatively, you can use a single "unresolved" forward 
branch in the Simple Assembler; see its instructions. You just type 
BNE FORWARD. 

Recall our previous warning about staying away from the 
infamous BPL and BMI instructions? BPL (Branch on PLus) and BMI 
(Branch on Minus) sound good, but should be avoided. To test for 
less-than or more-than situations, use BCC and BCS respectively. 
(Recall that BCC is alphabetically less-than BCS — an easy way to 
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remember which to use.) The reasons for this are exotic. We don't 
need to go into them. Just be warned that BPL and BMI, which sound 
so logical and useful, are not. They can fail you and neither one lives 
up to its name. Stick with the always trustworthy BCC, BCS. 

Also remember that BNE and the other three main "B" group 
branching instructions often don't need to have a CMP come in front 
of them to set a flag they can test. Many actions of many opcodes will 
automatically set flags during their operations. For example, LDA $80 
will affect the Z flag so you can tell if the number in address $80 was 
or wasn't zero by that flag. LDA $80 followed by BNE would branch 
away if there were anything besides a zero in address $80. If in doubt, 
check the chart of instructions in Appendix A to see which flags are 
set by which instructions. You'll soon get to know the common ones. 
If you are really in doubt, go ahead and use CMP. 

4. The Loop Group: 

DEY, DEX, INY, INX, INC, DEC 

INY and INX raise the Y and X register values by one each time 
they are used. If Y is a 17 and you INY, Y becomes an 18. Likewise, 
DEY and DEX decrease the value in these registers by one. There is 
no such increment or decrement instruction for the accumulator. 

Similarly, INC and DEC will raise or lower a memory address by 
one. You can give arguments to them in four addressing modes: 
Absolute, Zero Page, Zero Page,X and Absolute,X. These instructions 
affect the N and Z flags. 

The Loop Group are usually used to set up FOR-NEXT 
structures. The X register is used most often as a counter to allow a 
certain number of events to take place. In the structure FOR 1 = 1 TO 
10: NEXT I, the value of the variable I goes up by one each time the 
loop cycles around. The same effect is created by: 

2000 LDX #10 

2002 DEX ("DEcrement" or "DEcrease X" by 1) 

2003 BNE 2002 (Branch if Not Equal [to zero] back up to 

address 2002) 

Notice that DEX is tested by BNE (which sees if the Z flag, the 
zero flag, is up). DEX sets the Z flag up when X finally gets down to 
zero after ten cycles of this loop. (The only other flag affected by this 
loop group is the N [negative] flag for signed arithmetic.) 

Why didn't we use INX, INcrease X by 1? This would parallel 
exactly the FOR 1=1 TO 10, but it would be clumsy since our starting 
count which is #10 above would have to be #245. This is because X 
will not become a zero going up until it hits 255. So, for clarity and 
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simplicity, it is customary to set the count of X and then DEX it 
downward to zero. The following program will accomplish the same 
thing as the one above, and allow us to INX, but it too is somewhat 
clumsy: 

2000 LDX #0 

2002 INX 

2003 CPX #10 

2005 BNE 2002 

Here we had to use zero to start the loop because, right off the 
bat, the number in X is INXed to one by the instruction at 2002. In any 
case, it is a good idea to just memorize the simple loop structure in 
the first example. It is easy and obvious and works very well. 

Big Loops 

How would you create a loop which has to be larger than 256 cycles? 
When we examined the technique for adding large numbers, we 
simply used two-byte units instead of single-byte units to hold our 
information. Likewise, to do large loops, you can count down in two 
bytes, rather than one. In fact, this is quite similar to the idea of 
“nested" loops (loops within loops) in BASIC. 

2000 LDX #10 (start of 1st loop) 

2002 LDY #0 (start of 2nd loop) 

2004 DEY 

2005 BNE 2004 (if Y isn't yet zero, loop back to DEcrease Y 

again — this is the inner loop) 

2007 DEX (reduce the outer loop by one) 

2008 BNE 2002 (if X isn't yet zero, go through the entire DEY 

loop again) 

200A (continue with the rest of the program . . .) 

One thing to watch out for: be sure that a loop BNE's back up to 
one address after the start of its loop. The start of the loop sets a number 
into a register and, if you keep looping up to it, you'll always be 
putting the same number into it. The DEcrement (decrease by one) 
instruction would then never bring it down to zero to end the 
looping. You'll have created an endless loop. 

The example above could be used for a “timing loop" similarly 
to the way that BASIC creates delays with: FOR T = 1 TO 2000: NEXT 
T. Also, sometimes you do want to create an endless loop (the BEGIN 
. . . UNTIL in “structured programming"). A popular “endless" 
loop structure in BASIC waits until the user hits any key: 10 GET K$: 
IFK$ = " " THEN 10. 

10 IF PEEK (764)=255 THEN 10 is the way to accomplish this on 
the Atari; it will cycle endlessly unless a key is pressed. The simplest 
way to accomplish this in ML is to look on the map of your computer 
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to find which byte holds the "last key pressed" number. On Upgrade 
and 4.0 CBM/PET, it's address 151. On Atari, it's 764. On Apple II, 
it's -16384. On VIC and Commodore 64, it's 203 with a 64 in that 
location if no key is pressed. In any event, when a key is pressed, it 
deposits its special numerical value into this cell. If no key is pressed, 
some standard value stays there all the time. We'll use the CBM as 
our model here. If no key is pressed, location 151 will hold a 255: 

2000 LDA 151 
2002 CMP #255 
2004 BEQ 2000 

If the CMP is EQual, this means that the LDA pulled a 255 out of 
address 151 and, thus, no key is pressed. So, we keep looping until 
the value of address 151 is something other than 255. This setup is 
like GET in BASIC because not only does it wait until a key is 
pressed, but it also leaves the value of the key in the accumulator 
when it's finished. 

Recall that a CMP performs a subtraction. It subtracts the number 
in its argument from whatever number sits in the accumulator at the 
time. LDA #12 CMP $15 would subtract a 5 from 12 if 5 is the number 
"held" in address 15. This is how it can leave flags set for testing by 
BEQ or BNE. The key difference between this "subtraction" and SBC 
is that neither the accumulator nor the argument is affected at all by 
it. They stay what they were. The result of the subtraction is "thrown 
away," and all that happens is that the status flags go up or down in 
response to the result. If the CMP subtraction causes an answer of 
zero, the Z flag flips up. If the answer is not zero, the Z flag flips 
down. Then, BNE or BEQ can do their job — checking flags. 

Dealing With Strings 

You've probably been wondering how ML handles strings. It's pretty 
straightforward. There are essentially two ways: known-length and 
zero-delimit. If you know how many characters there are in a 
message, you can store this number at the very start of the text: 
"5ERROR." (The number 5 will fit into one byte, at the start of the 
text of the message.) If this little message is stored in your "message 
zone" — some arbitrary area of free memory you've set aside to hold 
all of your messages — you would make a note of the particular 
address of the "ERROR" message. Say it's stored at 4070. To print it 
out, you have to know where you "are" on your screen (cursor 
position). Usually, the cursor address is held in two bytes in zero 
page so you can use Indirect, Y addressing. 

Alternatively, you could simply set up your own zero-page 
pointers to the screen. For Apple II and Commodore 64, the screen 
memory starts at 1024; for CBM/PET it's 32768. In any case, you'll be 
able to set up a "cursor management" system for yourself. To 
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simplify, we'll send our message to the beginning of the Apple's 
screen: 


2000 LDX 4070 (remember, we put the length of the message 
as the first byte of the message, so we load our 
counter with the length) 

2003 LDY #0 (Y will be our message offset) 

2005 LDA 4071,Y (gets the character at the address plus Y. Y is 
zero the first time through the loop, so the 
"e" from here lands in the accumulator. It 
also stays in 4071. It's just being copied into 
the accumulator.) 

2008 STA 1024, Y (we can make Y do double duty as the offset 
for both the stored message and the screen- 
printout. Y is still zero the first time through 
this loop, so the "e" goes to 1024.) 

2011 INY (prepare to add one to the message-storage 

location and to the screen-print location) 

2012 DEX (lower the counter by one) 

2013 BNE 2005 (if X isn't used up yet, go back and get-and- 

print the next character, the "r") 


If The Length Is Not Known 

The alternative to knowing the length of a string is to put a special 
character (usually zero) at the end of each message to show its limit. 
This is called a delimiter. Note that Atari users cannot make zero the 
delimiter because zero is used to represent the space character. A zero 
works well for other computers because, in ASCII, the value 0 has no 
character or function (such as carriage return) coded to it. 
Consequently, any time the computer loads a zero into the 
accumulator (which will flip up the Z flag), it will then know that it is 
at the end of your message. At 4070, we might have a couple of error 
messages: "Ball out of rangeOTime nearly up!0". (These are numeric, 
not ASCII, zeros. ASCII zero has a value of 48.) 

To print the time warning message to the top of the CBM/PET 
screen (this is in decimal): 


2000 LDY #0 
2002 LDA 4088,Y 
2005 BEQ 2005 


2007 STA 32768,Y 


(get the "T") 

(the LDA just above will flip the zero flag up if 
it loads a zero, so we forward branch out of our 
message-printing loop. "BEQ 2005" is a 
dummy target, used until we know the actual 
target and can POKE it into 2006.) 

(we're using the Y as a double-duty offset 
again) 
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2010 INY 

2011 JMP 2002 (in this loop, we always jump back. Our exit 

from the loop is not here, at the end. Rather, it 
is the Branch if EQual which is within the 
loop.) 

2014 (continue with another part of the program) 

By the way, you should notice that the Simple Assembler will 
reject the commas in this example and, if you've forgotten to set line 
10 to accept decimal, it will not accept the single zero in LDY #0. Also, 
if you get unpredictable results, maybe decimal 2000 is not a safe 
address to store your ML. You might need to use some other practice 
area. 

Now that we know the address which follows the loop (2014), 
we can POKE that address into the "false forward branch" we left in 
address 2006. What number do we POKE into 2006? Just subtract 2007 
from 2014, which is seven. Using the Simple Assembler, type POKE 
and you can take care of this while you remember it. The assembler 
will perform the POKE and then return to wait for your next 
instruction. 

Both of these ways of handling messages are effective, but you 
must make a list on paper of the starting addresses of each message. 
In ML, you have the responsibility for some of the tasks that BASIC 
(at an expense of speed) does for you. Also, no message can be larger 
than 255 using the methods above because the offset and counter 
registers count only that high before starting over at zero again. 
Printing two strings back-to-back gives a longer, but still under 255 
byte, message: 


2000 LDY #0 
2002 LDX #2 


2004 LDA 4000, Y 
2007 BEQ 2016 
2009 STA 32768, Y 

2012 INY 

2013 JMP 2004 

2016 INY 

2017 DEX 


2018 BNE 2004 


(in this example, we use X as a counter which 
represents the number of messages we are 
printing) 

(get the "B" from "Ball out of. . .") 

(go to reduce [and check] the value of X) 
(we're using the Y as a double-duty offset 
again) 


(we need to raise Y since we skipped that step 
when we branched out of the loop) 

(at the end of the first message, X will be 
a "1"; at the end of the second message, 
it will be zero) 

(if X isn't down to zero yet, re-enter the loop to 
print out the second message) 
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To fill your screen with instructions instantly (say at the start of a 
game), you can use the following mass-move. We'll assume that the 
instructions go from 5000 to 5400 in memory and you want to transfer 
them to the PET screen (at $8000). If your computer's screen RAM 
moves around (adding memory to VIC will move the screen RAM 
address), you will need to know and substitute the correct address for 
your computer in these examples which print to the screen. This is in 
hex: 

2000 LDY #0 
2002 LDA 5000, Y 
2005 STA 8000, Y 
2008 LDA 5100,Y 
200B STA 8100, Y 
200E LDA 5200,Y 
2011 STA 8200,Y 
2014 LDA 5300, Y 
2017 STA 8300,Y 
201AINY 

201B BNE 2002 (if Y hasn't counted up to zero — which comes 
just above 255 — go back and load-store the 
next character in each quarter of the large 
message ) 

This technique is fast and easy any time you want to mass-move 
one area of memory to another. It makes a copy and does not disturb 
the original memory. To mass-clear a memory zone (to clear the 
screen, for example), you can use a similar loop, but instead of 
loading the accumulator each time with a different character, you 
load it at the start with the character your computer uses to blank the 
screen. (Commodore including VIC and Apple = decimal 32; 

Atari=0): 

2000 LDA #20 (this example, in hex, blanks the PET screen) 

2002 LDY #0 
2004 STA 8000,Y 
2007 STA 8100,Y 
200A STA 8200,Y 
200D STA 8300,Y 

2010 DEY 

2011 BNE 2004 

Of course, you could simply JSR to the routine which already 
exists in your BASIC to clear the screen. In Chapter 7 we will explore 
the techniques of using parts of BASIC as examples to learn from and 
also as a collection of ready-made ML subroutines. Now, though, we 
can look at how subroutines are handled in ML. 
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5. The Subroutine and Jump Group: 
JMP, JSR, RTS 

JMP has only one useful addressing mode: Absolute. You give it a 
firm, two-byte argument and it goes there. The argument is put into 
the Program Counter and control of the computer is transferred to 
this new address where an instruction there is acted upon. (There is a 
second addressing mode, JMP Indirect, which, you will recall, has a 
bug and is best left unused.) 

JSR can only use Absolute addressing. 

RTS's addressing mode is Implied. The address is on the stack, 
put there during the JSR. 

None of these instructions has any effect on the flags. 

JSR Jump to SubRoutine) is the same as GOSUB in BASIC, but 
instead of giving a line number, you give an address in memory 
where the subroutine sits. RTS (ReTurn from Subroutine) is the same 
as RETURN in BASIC, but instead of returning to the next BASIC 
command, you return to the address following the JSR instruction 
(it's a three-byte-long ML instruction containing JSR and the two-byte 
target address). JMP (JuMP) is GOTO. Again, you JMP to an address, 
not a line number. As in BASIC, there is no RETURN from a JMP. 

Some Further Cautions About The Stack 

The stack is like a pile of coins. The last one you put on top of the pile 
is the first one pulled off later. The main reason that the 6502 sets 
aside an entire page of memory especially for the stack is that it has to 
know where to go back to after GOSUBs and JSRs. 

A JSR instruction pushes the correct return address onto the 
“stack" and, later, the next RTS “pulls" the top two numbers off the 
stack to use as its argument (target address) for the return. Some 
programmers, as we noted before, like to play with the stack and use 
it as a temporary register to PH A (PusH Accumulator onto the stack). 
This sort of thing is best avoided until you are an advanced ML 
programmer. Stack manipulations often result in a very confusing 
program. Handling the stack is one of the few things that the 
computer does for you in ML. Let it. 

The main function of the stack (as far as we're concerned) is to 
hold return addresses. It's done automatically for us by "pushes" 
with the JSR and, later, "pulls" (sometimes called pops) with the RTS. 
If we don't bother the stack, it will serve us well. There are thousands 
upon thousands of cells where you could temporarily leave the 
accumulator — or any other value — without fouling up the orderly 
arrangement of your return addresses. 

Subroutines are extremely important in ML programming. ML 
programs are designed around them, as we'll see. There are times 
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when you'll be several subroutines deep (one will call another which 
calls another); this is not as confusing as it sounds. Your main Player- 
input routine might call a print-message subroutine which itself calls 
a wait-until-key-is-pressed subroutine. If any of these routines PHA 
(PusH the Accumulator onto the stack), they then disturb the 
addresses on the stack. If the extra number on top of the stack isn't 
PLA-ed off (PulL Accumulator), the next RTS will pull off the number 
that was PHA'ed and half of the correct address. It will then merrily 
return to what it thinks is the correct address: it might land 
somewhere in the RAM, it might go to an address at the outer reaches 
of your operating system — but it certainly won't go where it should. 

Some programmers like to change a GOSUB into a GOTO (in 
the middle of the action of a program) by PLA PLA. Pulling the two 
top stack values off has the effect of eliminating the most recent RTS 
address. It does leave a clean stack, but why bother to JSR at all if you 
later want to change it to a GOTO? Why not use JMP in the first 
place? 

There are cases, too, when the stack has been used to hold the 
current condition of the flags (the Status Register byte). This is 
pushed/pulled from the stack with PHP (PusH Processor status) and 
PLP (PulL Processor status). If you should need to ''remember'' the 
condition of the status flags, why not just PHP PLA STA $NN? 
("NN" means the address is your choice.) Set aside a byte 
somewhere that can hold the flags (they are always changing inside 
the Status Register) for later and keep the stack clean. Leave stack 
acrobatics to FORTH programmers. The stack, except for advanced 
ML, should be inviolate. 

FORTH, an interesting language, requires frequent stack 
manipulations. But in the FORTH environment, the reasons for this 
and its protocol make excellent sense. In ML, though, stack 
manipulations are a sticky business. 

Saving The Current Environment 

There is one exception to our leave-the-stack-alone rule. Sometimes 
(especially when you are "borrowing” a routine from BASIC) you 
will want to take up with your own program from where it left off. 
That is, you might not want to write a "clear the screen" subroutine 
because you find the address of such a routine on your map of 
BASIC. However, you don't know what sorts of things BASIC will do 
in the meantime to your registers or your flags, etc. In other words, 
you just want to clear the screen without disturbing the flow of your 
program by unpredictable effects on your X, Y, A, and status 
registers. In such a case, you can use the following "Save the state of 
things" routine: 

2000 PHP (push the status register onto the stack) 

2001 PHA 
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2002 TXA 

2003 PHA 

2004 TYA 

2005 PHA 

2006 JSR (to the clear-the-screen routine in BASIC. The RTS 

will remove the return address [2009], and you'll 
have a mirror image of the things you had pushed 
onto the stack. They are pulled out in reverse order, 
as you can see below. This is because the first pull 
from the stack will get the most recently pushed 
number. If you make a little stack of coins, the first 
one you pull off will be the last one you put onto the 
stack.) 

2009 PLA (now we reverse the order to get them back) 

2010 TAY 

2011 PLA 

2012 TAX 

2013 PLA (this one stays in A) 

2014 PLP (the status register) 

Saving the current state of things before visiting an uncharted, 
unpredictable subroutine is probably the only valid excuse for playing 
with the stack as a beginner in ML. The routine above is constructed 
to leave the stack intact. Everything that was pushed on has been 
pulled back off. 

The Significance Of Subroutines 

Maybe the best way to approach ML program writing — especially a 
large program — is to think of it as a collection of subroutines. Each of 
these subroutines should be small. It should be listed on a piece of 
paper followed by a note on what it needs as input and what it gives 
back as parameters. "Parameter passing" simply means that a 
subroutine needs to know things from the main program 
(parameters) which are handed to it (passed) in some way. 

The current position of the ball on the screen is a parameter 
which has its own "register" (we set aside a register for it at the start 
when we were assigning memory space on paper). So, the "send the 
ball down one space" subroutine is a double-adder which adds 40 or 
whatever to the "current position register." This value always sits in 
the register to be used any time any subroutine needs this 
information. The "send the ball down one" subroutine sends the 
current-position parameter by passing it to the current-position 
register. 

This is one way that parameters are passed. Another illustration 
might be when you are telling a delay loop how long to delay. Ideally, 
your delay subroutine will be multi-purpose. That is, it can delay for 
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anywhere from Vi second to 60 seconds or something. This means 
that the subroutine itself isn't locked into a particular length of delay. 
The main program will "pass” the amount of delay to the subroutine. 

3000 LDY #0 

3002 INY 

3003 BNE 3002 

3005 DEX 

3006 BNE 3000 

3008 RTS 

Notice that X never is initialized (set up) here with any particular 
value. This is because the value of X is passed to this subroutine from 
the main program. If you want a short delay, you would: 

2000 LDX #5 (decimal) 

2002 JSR 3000 

And for a delay which is twice as long as that: 

2000 LDX #10 

2002 JSR 3000 

In some ways, the less a subroutine does, the better. If it's not 
entirely self-sufficient, and the shorter and simpler it is, the more 
versatile it will be. For example, our delay above could function to 
time responses, to hold sounds for specific durations, etc. When you 
make notes, write something like this: 3000 DELAY LOOP (Expects 
duration in X. Returns 0 in X.). The longest duration would be LDX 
#0. This is because the first thing that happens to X in the delay 
subroutine is DEX. If you DEX a zero, you get 255. If you need longer 
delays than the maximum value of X, simply: 

3000 LDX #0 

3002 JSR 3000 

3005 JSR 3000 (notice that we don't need to set X to zero this 
second time. It returns from the subroutine 
with a zeroed X.) 

You could even make a loop of the JSR's above for extremely 
long delays. The point to notice here is that it helps to document each 
subroutine in your library: what parameters it expects, what 
registers, flags, etc., it changes, and what it leaves behind as a result. 
This documentation — a single sheet of paper will do — helps you 
remember each routine's address and lets you know what effects and 
preconditions are involved. 

JMP 

Like BASIC's GOTO, JMP is easy to understand. It goes to an 
address: JMP 5000 leaps from wherever it is to start carrying out the 
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instructions which start at 5000. It doesn't affect any flags. It doesn't 
do anything to the stack. It's clean and simple. Yet some advocates of 
"structured programming" suggest avoiding JMP (and GOTO in 
BASIC). Their reasoning is that JMP is a shortcut and a poor 
programming habit. 

For one thing, they argue, using GOTO makes programs 
confusing. If you drew lines to show a program's "flow" (the order 
in which instructions are carried out), a program with lots of GOTO's 
would look like boiled spaghetti. Many programmers feel, however, 
that JMP has its uses. Clearly, you should not overdo it and lean 
heavily on JMP. In fact, you might see if there isn't a better way to 
accomplish something if you find yourself using it all the time and 
your programs are becoming impossibly awkward. But JMP is 
convenient, often necessary in ML. 

A 6502 Bug 

On the other hand, there is another, rather peculiar JMP form which 
is hardly ever used in ML: JMP (5000). This is an indirect jump which 
works like the indirect addressing we've seen before. Remember that 
in Indirect,Y addressing (LDA (81), Y), the number in Y is added to 
the address found in 81 and 82. This address is the real place we are 
LDAing from, sometimes called the effective address. If 81 holds a 00, 

82 holds a 40, and Y holds a 2, the address we LDA from is going to be 
4002. Similarly (but without adding Y), the effective address formed 
by the two bytes at the address inside the parentheses becomes the 
place we JMP to in JMP (5000). 

There are no necessary uses for this instruction. Best avoid it the 
same way you avoid playing around with the stack until you're an 
ML expert. If you find it in your computer's BASIC ROM code, it will 
probably be involved in an "indirect jump table," a series of registers 
which are dynamic. That is, they can be changed as the program 
progresses. Such a technique is very close to a self-altering program 
and would have few uses for the beginner in ML programming. 
Above all, there is a bug in the 6502 itself which causes indirect JMP to 
malfunction under certain circumstances. Put JMP ($NNNN) into the 
same category as BPL and BMI. Avoid all three. 

If you decide you must use indirect JMP, be sure to avoid the 
edge of pages: JMP ($NNFF). The "NN" means "any number." 
Whenever the low byte is right on the edge, if $FF is ready to reset to 
00, this instruction will correctly use the low byte (LSB) found in 
address $NNFF, but it will not pick up the high byte (MSB) from 
$NNFF plus one, as it should. It gets the MSB from NN00! 

Here's how the error would look if you had set up a pointer to 
address $5043 at location $40FF: 

$40FF 43 

$4100 50 
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Your intention would be to JMP to $5403 by bouncing off this 
pointer. You would write JMP ($40FF) and expect that the next 
instruction the computer would follow would be whatever is written 
at $5043. Unfortunately, you would land at $0043 instead (if address 
$4000 held a zero). It would get its MSB from $4000. 


6. Debuggers: 

BRK and NOP 

BRK and NOP have no argument and are therefore members of that 
class of instructions which use only the Implied addressing mode. 
They also affect no flags in any way with which we would be 
concerned. BRK does affect the I and B flags, but since it is a rare 
situation which would require testing those flags, we can ignore this 
flag activity altogether. 

After you've assembled your program and it doesn't work as 
expected (few do), you start debugging. Some studies have shown that 
debugging takes up more than fifty percent of programming time. 
Such surveys might be somewhat misleading, however, because 
“making improvements and adding options" frequently takes place 
after the program is allegedly finished, and would be thereby 
categorized as part of the debugging process. 

In ML, debugging is facilitated by setting breakpoints with BRK 
and then seeing what's happening in the registers or memory. If you 
insert a BRK, it has the effect of halting the program and sending you 
into your monitor where you can examine, say, the Y register to see if 
it contains what you would expect it to at this point in the program. 
It's similar to BASIC's STOP instruction: 

2000 LDA #15 

2002 TAY 

2003 BRK 

If you run the above, it will carry out the instructions until it gets 
to BRK when it will put the program counter plus two on the stack, put 
the status register on the stack, and load the program counter with 
whatever is in addresses $FFFE, $FFFF. These are the two highest 
addresses in your computer and they contain the vector (a pointer) for 
an interrupt request (IRQ). 

These addresses will point to a general interrupt handler and, if 
your computer has a monitor, its address might normally be found 
here. Remember, though, that when you get ready to CONT, the 
address on the top of the stack will be the BRK address plus two. 
Check the program counter (it will appear when your monitor 
displays the registers) to see if you need to modify it to point to the 
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next instruction instead of pointing, as it might be, to an argument. 
Some monitors adjust the program counter when they are BRKed to 
so that you can type g (go) in the same way that you would type 
CONT in BASIC. See the instructions for your particular monitor. 

Debugging Methods 

In effect, you debug whenever your program runs merrily along and 
then does something unexpected. It might crash and lock you out. 
You look for a likely place where you think it is failing and just insert a 
BRK right over some other instruction. Remember that in the monitor 
mode you can display a hex dump and type over the hex numbers on 
screen, hitting RETURN to change them. In the example above, 
imagine that we put the BRK over an STY 8000. Make a note of the 
hex number of the instruction you covered over with the BRK so you 
can restore it later. After checking the registers and memory, you 
might find something wrong. Then you can fix the error. 

If nothing seems wrong at this point, restore the original STY 
over the BRK, and insert a BRK in somewhere further on. By this 
process, you can isolate the cause of an oddity in your program. 
Setting breakpoints (like putting STOP into BASIC programs) is an 
effective way to run part of a program and then examine the 
variables. 

If your monitor or assembler allows single-stepping, this can be an 
excellent way to debug, too. Your computer performs each 
instruction in your program one step at a time. This is like having 
BRK between each instruction in the program. You can control the 
speed of the stepping from the keyboard. Single-stepping automates 
breakpoint checking. It is the equivalent of the TRACE command 
sometimes used to debug BASIC programs. 

Like BRK ($00), the hex number of NOP (SEA) is worth 
memorizing. If you're working within your monitor, it will want you 
to work in hex numbers. These two are particularly worth knowing. 
NOP means No OPeration. The computer slides over NOP's without 
taking any action other than increasing the program counter. There 
are two ways in which NOP can be effectively used. 

First, it can be an eraser. If you suspect that STY 8000 is causing 
all the trouble, try running your program with everything else the 
same, but with STY 8000 erased. Simply put three EA's over the 
instruction and argument. (Make a note, though, of what was under 
the EA's so you can restore it.) Then, the program will run without 
this instruction and you can watch the effects. 

Second, it is sometimes useful to use EA to temporarily hold 
open some space. If you don't know something (an address, a 
graphics value) during assembly, EA can mark that this space needs 
to be filled in later before the program is run. As an instruction, it will 
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let the program slide by. But, remember, as an address or a number, 
EA will be thought of as 234. In any case, EA could become your "fill 
this in" alert within programs in the way that we use self-branching 
(leaving a zero after a BNE or other branch instruction) to show that 
we need to put in a forward branch's address. 

When the time comes for you to "tidy up" your program, use 
your monitor's "find" command, if it has one. This is a search 
routine: you tell it where to start and end and what to look for, and it 
prints out the addresses of any matches it finds. It's a useful utility; if 
your monitor does not have a search function, you might consider 
writing one as your first large ML project. You can use some of the 
ideas in Chapter 8 as a starting point. 

Less Common Instructions 

The following instructions are not often necessary for beginning 
applications, but we can briefly touch on their main uses. There are 
several "logical" instructions which can manipulate or test individual 
bits within each byte. This is most often necessary when interfacing. 

If you need to test what's coming in from a disk drive, or translate on 
a bit-by-bit level for I/O (input/output), you might work with the 
"logical" group. 

In general, this is handled for you by your machine's operating 
system and is well beyond beginning ML programming. I/O is 
perhaps the most difficult, or at least the most complicated, aspect of 
ML programming. When putting things on the screen, programming 
is fairly straightforward, but handling the data stream into and out of 
a disk is pretty involved. Timing must be precise, and the 
preconditions which need to be established are complex. 

For example, if you need to "mask" a byte by changing some of 
its bits to zero, you can use the AND instruction. After an AND, both 
numbers must have contained a 1 in any particular bit position for it 
to result in a 1 in the answer. This lets you set up a mask: 00001111 
will zero any bits within the left four positions. So, 00001111 AND 
11001100 result in 00001100. The unmasked bits remained 
unchanged, but the four high bits were all masked and zeroed. The 
ORA instruction is the same, except it lets you mask to set bits (make 
them a 1). 11110000 ORA 11001100 results in 11111100. The 
accumulator will hold the results of these instructions. 

EOR (Exclusive OR) permits you to "toggle" bits. If a bit is one it 
will go to zero. If it's zero, it will flip to one. EOR is sometimes useful 
in games. If you are heading in one direction and you want to go back 
when bouncing a ball off a wall, you could "toggle." Let's say that 
you use a register to show direction: when the ball's going up, the 
byte contains the number 1 (00000001), but down is zero (00000000). 
To toggle this least significant bit, you would EOR with 00000001. 

This would flip 1 to zero and zero to 1. This action results in the 
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complement of a number. 11111111EOR 11001100 results in 00110011. 

To know the effects of these logical operators, we can look them 
up in "truth tables" which give the results of all possible 
combinations of zeros and ones: 


AND 

0AND0=0 
0AND 1 = 0 
1 AND0 = 0 
1 AND 1 = 1 


OR 

0 OR 0 = 0 
0 OR1 = 1 
1 OR 0=1 
1 OR1 = 1 


EOR 

0 EOR0 = 0 
0 EOR1 = 1 
1EOR0=l 
1EOR1=0 


BIT Tests 

Another instruction, BIT, also tests (it does an AND), but, like CMP, 
it does not affect the number in the accumulator — it merely sets flags 
in the status register. The N flag is set (has a 1) if bit seven has a 1 (and 
vice versa). The V flag responds similarly to the value in the sixth bit. 
The Z flag shows if the AND resulted in zero or not. Instructions, like 
BIT, which do not affect the numbers being tested are called non¬ 
destructive. 

We discussed LSR and ASL in the chapter on arithmetic: they 
can conveniently divide and multiply by two. ROL and ROR rotate the 
bits left or right in a byte but, unlike with the Logical Shift Right or 
Arithmetic Shift Left, no bits are dropped during the shift. ROL will 
leave the 7th (most significant) bit in the carry flag, leave the carry flag 
in the 0th (least significant bit), and move every other bit one space to 
the left: 

ROL 11001100 (with the carry flag set) results in 

10011001 (carry is still set, it got the leftmost 1) 

If you disassemble your computer's BASIC, you may well look 
in vain for an example of ROL, but it and ROR are available in the 
6502 instruction set if you should ever find a use for them. Should 
you go into advanced ML arithmetic, they can be used for 
multiplication and division routines. 

Three other instructions remain: SEI (SEt Interrupt), RTI 
(ReTurn from Interrupt), and CLI (CLear Interrupt). These operations 
are, also, beyond the scope of a book on beginning ML programming, 
but we'll briefly note their effects. Your computer gets busy as soon as 
the power goes on. Things are always happening: timing registers are 
being updated; the keyboard, the video, and the peripheral 
connectors are being refreshed or examined for signals. To 
"interrupt" all this activity, you can SEI, perform some task, and 
then CLI to let things pick up where they left off. 

SEI sets the interrupt flag. Following this, all maskable 
interruptions (things which can be blocked from interrupting when 
the interrupt status flag is up) are no longer possible. There are also 
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non-maskable interrupts which, as you might guess, will jump in 
anytime, ignoring the status register. 

The RTI instruction (ReTurn from Interrupt) restores the 
program counter and status register (takes them from the stack), but 
the X, Y, etc., registers might have been changed during the 
interrupt. Recall that our discussion of the BRK involved the above 
actions. The key difference is that BRK stores the program counter 
plus two on the stack and sets the B flag on the status register. CLI 
puts the interrupt flag down and lets all interrupts take place. 

If these last instructions are confusing to you, it doesn't matter. 
They are essentially hardware and interface related. You can do 
nearly everything you will want to do in ML without them. How 
often have you used WAIT in BASIC? 
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Borrowing From BASIC 


BASIC is a collection of ML subroutines. It is a large web of hundreds 
of short, ML programs. Why not use some of them by JSRing to 
them? At times, this is in fact the best solution to a problem. 

How would this differ from BASIC itself? Doesn't BASIC just 
create a series of JSR's when it RUNs? Wouldn't using BASIC's ML 
routines in this way be just as slow as BASIC? 

In practice, you will not be borrowing from BASIC all that much. 
One reason is that such JSRing makes your program far less portable, 
less easily RUN on other computers or other models of your 
computer. When you JSR to an address within your ROM set to save 
yourself the trouble of re-inventing the wheel, you are, 
unfortunately, making your program applicable only to machines 
which are the same model as yours. The subroutine to allocate space 
for a string in memory is found at $D3D2 in the earliest PET model. A 
later version of PET BASIC (Upgrade) used $D3CE and the current 
models use $C61D. With Atari, Texas Instruments, Sinclair and other 
computers as exceptions, Microsoft BASIC is nearly universally used 
in personal computers. But each computer's version of Microsoft 
differs in both the order and the addresses of key subroutines. 


Kernals And Jump Tables 

To help overcome this lack of portability, some computer 
manufacturers set aside a group of frequently used subroutines and 
create a Jump Table, or kernal, for them. The idea is that future, 
upgraded BASIC versions will still retain this table. It would look 
something like this: 


FFCF 4C 15 
FFD2 4C 66 
FFD5 4C 01 
FFD8 4C DD 


F2 (INPUT one byte) 

F2 (OUTPUT one byte) 
F4 (LOAD something) 
F6 (SAVE something) 


This example is part of the Commodore kernal. 

There is a trick to the way this sort of table works. Notice that 
each member of the table begins with 4C. That's the JMP instruction 
and, if you land on it, the computer bounces right off to the address 
which follows. $FFD2 is a famous one in Commodore computers. If 
you load the accumulator with a number (LDA #65) and then JSR 
FFD2, a character will be printed on the screen. The screen location is 
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incremented each time you use it, so it works semi-automatically. In 
other words, it also keeps track of the current "cursor position" for 
you. 

This same "output" routine will work for a printer or a disk or a 
tape — anything that the computer sees as an output device. 
However, unless you open a file to one of the other devices (it's 
simplest to do this from BASIC in the normal way and then SYS, 

USR, or CALL to an ML subroutine), the computer defaults to 
(assumes) the screen as the output device, and FFD2 prints there. 

What's curious about such a table is that you JSR to FFD2 as you 
would to any other subroutine. But where's the subroutine? It's not 
at FFD5. That's a different JMP to the LOAD code. A naked JMP 
(there is no RTS here in this jump table) acts like a rebound: you hit 
one of these JMP's in the table and just bounce off it to the true 
subroutine. 

The real subroutine (at $F266 in one BASIC version's $FFD2's 
JMP) will perform what you expect. Why not just JSR to F266 directly? 
Because, on other models of Commodore computers — Original 
BASIC, for example — the output subroutine is not located at F266. It's 
somewhere else. But a JSR to FFD2 will rebound you to the right 
address in any Commodore BASIC. All Commodore machines have 
the correct JMP for their particular BASIC set up at FFD2. This means 
that you can JSR to FFD2 on any Commodore computer and get 
predictable results, an output of a byte. 

So, if you look into your BASIC code and find a series of JMP's 
(4C xx xx 4C xx xx), it's a jump table. Using it should help make your 
programs compatible with later versions of BASIC which might be 
released. Though this is the purpose of such tables, there are never 
any guarantees that the manufacturer will consistently observe them. 
And, of course, the program which depends on them will certainly 
not work on any other computer brand. 

What’s Fastest? 

Why, though, is a JSR into BASIC code faster than a BASIC program? 
When a BASIC program RUNs, it is JSRing around inside itself. The 
answer is that a program written entirely in ML, aside from the fact 
that it borrows only sparingly from BASIC prewritten routines, 
differs from BASIC in an important way. A finished ML program is 
like compiled code; that is, it is ready to execute without any overhead. 
In BASIC each command or instruction must be interpreted as it 
RUNs. This is why BASIC is called an "interpreter." Each instruction 
must be looked up in a table to find its address in ROM. This takes 
time. Your ML code will contain the addresses for its JSR's. When ML 
runs, the instructions don't need the same degree of interpretation by 
the computer. 

There are special programs called compilers which take a BASIC 
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program and transform ("compile”) it into ML-like code which can 
then be executed like ML, without having to interpret each 
command. The JSR's are within the compiled program, just as in ML. 
Ordinarily, compiled programs will RUN perhaps 20 to 40 times 
faster than the BASIC program they grew out of. (Generally, there is 
a price to pay in that the compiled version is almost always larger 
than its BASIC equivalent.) 

Compilers are interesting; they act almost like automatic ML 
writers. You write it in BASIC, and they translate it into an ML-like 
program. Even greater improvements in speed can be achieved if a 
program uses no floating point (decimal points) in the arithmetic. 
Also, there are "optimized" compilers which take longer during the 
translation phase to compile the finished program, but which try to 
create the fastest, most efficient program design possible. A good 
compiler can translate an 8K BASIC program in two or three minutes. 

GET And PRINT 

Two of the most common activities in a computer program are getting 
characters from the keyboard and printing them to the screen. To 
illustrate how to use BASIC from within an ML program, we'll show 
how both of these tasks can be accomplished from within ML. 

For the Atari, $F6E2 works like BASIC's GET#. If you JSR $F6E2, 
the computer will wait until a key is pressed on the keyboard. Then, 
when one is pressed, the numerical code for that key is put into the 
accumulator, and control is returned to your ML program. To try this, 
type: 

2000 JSR $F6E2 
2003 BRK 

Then run this program and hit a key on the keyboard. Notice 
that the code number for that letter appears in the accumulator. 

Another location within Atari's BASIC ROM will print a 
character (whatever's in the accumulator) to the next available 
position on the screen. This is like PUT#6. Try combining the above 
GET# with this: 

2000 JSR $F6E2 (get the character) 

2003 JSR $F6A4 (print to the screen) 

2006 BRK 

Using $F6A4 changes the numbers in the X and Y registers 
(explained below). 

For the Apple, there are BASIC routines to accomplish these 
same jobs. Apple Microsoft BASIC's GET waits for user input. 
(Commodore's GET doesn't wait for input.) 

2000 JSR $FD0C (GET a byte from the keyboard) 

2003 RTS (the character is in the accumulator) 
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This address, $FD0C, will wait until the user types in a 
character. It will position a flashing cursor at the correct position. 
However, it will not print an “echo," an image of the character on the 
screen. 

To print to the screen: 

2000 LDA #65 (put “a" into the accumulator) 

2002 JSR $FBFD (print it) 

For Commodore computers (VIC, 64, and PET/CBM) which also use 
Microsoft BASIC, the two subroutines are similar: 

2000 JSR $FFE4 (GET whatever key is being pressed) 

2003 BEQ 2000 (if no key is pressed, a zero is in the 

accumulator, so you BEQ back and try for a 
character again) 

2005 RTS (the character's value is in the accumulator) 

The $FFE4 is another one of those "kernal" jump table locations 
common to all Commodore machines. It performs a GET. 

An ML routine within your BASIC which keeps track of the 
current cursor position and will print things to the screen is often 
needed in ML programming. 

The VIC, 64, and PET/CBM use the routine called by $FFD2. 
Apple uses $FDED. Atari uses $F6A4. 

You can safely use the Y register to print out a series of letters (Y 
used as an index) in any BASIC except Atari's. You could print out a 
whole word or block of text or graphics stored at $1000 in the 
following way. (See Program 7-1.) 

Atari's BASIC alters the X and Y registers when it executes its 
"print it" subroutine so you need to keep count some other way. 
Whenever you borrow from BASIC, be alert to the possibility that the 
A, X, or Y registers, as well as the flags in the status register, might 
well be changed by the time control is returned to your ML program. 
Here's one way to print out messages on the Atari. (See Program 7-2.) 

If you look at Appendix B you will see that there are hundreds of 
freeze-dried ML modules sitting in BASIC. (The maps included in 
this book are for VIC, PET, Atari, and Commodore 64. Appendix B 
contains information on how to obtain additional maps for Apple and 
Atari.) 

It can be intimidating at first, but disassembling some of these 
routines is a good way to discover new techniques and to see how 
professional ML programs are constructed. Study of your computer's 
BASIC is worth the effort, and it's something you can do for yourself. 
From time to time, books are published which go into great detail 
about each BASIC routine. They, too, are often worth studying. 
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Building A Program 

Using what we've learned so far, and adding a couple of new 
techniques, let's build a useful program. This example will 
demonstrate many of the techniques we've discussed and will also 
show some of the thought processes involved in writing ML. 

Among the computer's more impressive talents is searching. It 
can run through a mass of information and find something very 
quickly. We can write an ML routine which looks through any area of 
memory to find matches with anything else. If your BASIC doesn't 
have a FIND command or its equivalent, this could come in handy. 
Based on an idea by Michael Erperstorfer published in COMPUTE! 
Magazine, this ML program will report the line numbers of all the 
matches it finds. 

Safe Havens 

Before we go through some typical ML program-building methods, 
let's clear up the "where do I put it?" question. ML can't just be 
dropped anywhere in memory. When the Simple Assembler asks 
"Starting Address?", you can't give it any address you want to. RAM 
is used in many ways. There is always the possibility that a BASIC 
program might be residing in part of it (if you are combining ML with 
a BASIC program). Or BASIC might use part of RAM to store arrays 
or variables. During execution, these variables might write (POKE) 
into the area that you placed your ML program, destroying it. Also, 
the operating system, the disk operating system, cassette/disk loads, 
printers — they all use parts of RAM for their activities. There are 
other things going on in the computer beside your hard-won ML 
program. 

Obviously, you can't put your ML into ROM addresses. That's 
impossible. Nothing can be POKEd into those addresses. The 64 is an 
exception to this. You can POKE into ROM areas because a RAM 
exists beneath the ROM. Refer to the Programmer's Reference Guide or 
see Jim Butterfield's article on 64 architecture ( COMPUTE! Magazine, 
January 1983) for details. 

Where to put ML? There are some fairly safe areas. 

If you are using Applesoft in ROM, 768 to 1023 ($0300 to $03FF) 
is safe. Atari's page six, 1536 to 1791 ($0600 to $06FF) is good. The 64 
and VIC's cassette buffer at 828 to 1019 ($033C to $03FB) are good if 
you are not LOADing or SAVEing from tape. 
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The PET/CBM makes provision for a second cassette unit. In 
theory, it would be attached to the computer to allow you to update 
files or make copies of programs from Cassette #1 to Cassette #2. In 
practice, no one has mentioned finding a use for a second cassette 
drive. It is just as easy to use a single cassette for anything that a 
second cassette could do. As a result, the buffer (temporary holding 
area) for bytes streaming in from the second cassette unit is very safe 
indeed. No bytes ever flow in from the phantom unit so it is a perfect 
place to put ML. 

The "storage problem" can be solved by knowing the free 
zones, or creating space by changing the computer's understanding 
of the start or end of BASIC programs. When BASIC is running, it 
will set up arrays and strings in RAM memory. Knowing where a 
BASIC program ends is not enough. It will use additional RAM. 
Sometimes it puts the strings just after the program itself. Sometimes 
it builds them down from the "top of memory," the highest RAM 
address. Where are you going to hide your ML routine if you want to 
use it along with a BASIC program? How are you going to keep 
BASIC from overwriting the ML code? 

Misleading The Computer 

If the ML is a short program you can stash it into the safe areas listed 
above. Because these safe areas are only a couple of hundred bytes 
long, and because so many ML routines want to use that area, it can 
become crowded. Worse yet, we've been putting the word "safe" in 
quotes because it just isn't all that reliable. Apple uses the "safe" 
place for high-res work, for example. The alternative is to deceive the 
computer into thinking that its RAM is smaller than it really is. This is 
the real solution. 

Your ML will be truly safe if your computer doesn't even suspect 
the existence of set-aside RAM. It will leave the safe area alone 
because you've told it that it has less RAM than it really does. 

Nothing can overwrite your ML program after you misdirect your 
computer's operating system about the size of its RAM memory. 
There are two bytes in zero page which tell the computer the highest 
RAM address. You just change those bytes to point to a lower 
address. 

These crucial bytes are 55 and 56 ($37,38) in the 64 and VIC. 

They are 52,53 ($34,35) in PET/CBM Upgrade and 4.0 BASIC. In the 
PET with Original ROM BASIC, they are 134,135 ($86,87). The Apple 
uses 115,116 ($73,74), and you lower the Top-of-BASIC pointer just as 
you do in Commodore machines. 

The Atari does something similar, but with the bottom of RAM. It 
is easier with the Atari to store ML just below BASIC than above it. 
Bump up the "lomem" pointer to make some space for your ML. It's 
convenient to start ML programs which are too long to fit into page 
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six ($0600-06FF) at $1F00 and then put this address into lomem. The 
LSB and MSB are reversed, of course, as the 6502 requires its pointers 
to be like this: 

$02E7 00 
$02E8 IF 

$02E7,8 is Atari's low memory pointer. You should set up this 
pointer (LDA $00, STA $02E7, LDA #$1F, STA $02E8) as part of your 
ML program. Following that pointer setup, JMP $A000 which 
initializes BASIC. If you are not combining ML with a BASIC 
program, these preliminary steps are not necessary. 

Safe Atari zero page locations include $00-04, $CB-D0, $D4-D9 
(if floating point numbers are not being used); $0400 (the printer and 
cassette buffer), $0500-057F (free), $0580-05FF (if floating point and 
the Editor are not being used), $0600-06FF (free) are also safe. No 
other RAM from $0700 (Disk Operating System) to $9FFF or $BFFF is 
protected from BASIC. 

To repeat: address pointers such as these are stored in LSB, MSB 
order. That is, the more significant byte comes second (this is the 
reverse of normal, but the 6502 requires it of address pointers). For 
example, $8000, divided between two bytes in a pointer, would look 
like this: 

0073 00 
0074 80 

As we mentioned earlier, this odd reversal is a peculiarity of the 
6502 that you just have to get used to. Anyway, you can lower the 
computer's opinion of the top-of-RAM-memory, thereby making a 
safe place for your ML, by changing the MSB. If you need one page 
(256 bytes): POKE 116, PEEK (116)-1 (Apple). For four pages (1024 
bytes) on the Upgrade and 4.0 PETs: POKE 53, PEEK (53) -4. Then 
your BA or start of assembling could begin at (Top-of-RAM-255 or 
Top-of-RAM-1023, respectively. You don't have to worry much about 
the LSB here. It's usually zero. If not, take that into account when 
planning where to begin storage of your object code. 

Building The Code 

Now we return to the subject at hand — building an ML program. 
Some people find it easiest to mentally break a task down into several 
smaller problems and then weave them into a complete program. 
That's how we'll look at our search program. (See Program 8-1.) 

For this exercise, we can follow the PET/CBM 4.0 BASIC version 
to see how it is constructed. All the versions (except Atari's) are 
essentially the same, as we will see in a minute. The only differences 
are in the locations in zero page where addresses are temporarily 
stored, the "start-of-BASIC RAM" address, the routines to print a 
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character and to print a line number, and the RAM where it's safe to 
store the ML program itself. In other words, change the defined 
variables between lines 20 and 100 in Program 8-1 and you can use the 
program on another computer. 

We will build our ML program in pieces and then tie them all 
together at the end. The first phase, as always, is the initialization. 

We set up the variables and fill in the pointers. Lines 20 and 30 define 
two, two-byte zero page pointers. L1L is going to point at the address 
of the BASIC line we are currently searching through. L2L points to 
the starting address of the line following it. 

Microsoft BASIC stores four important bytes just prior to the 
start of the code in a BASIC line. Take a look at Figure 8-1. The first 
two bytes contain the address of the next line in the BASIC program. 
The second two bytes hold the line number. The end of a BASIC line 
is signaled by a zero. Zero does not stand for anything in the ASCII 
code or for any BASIC command. If there are three zeros in a row, 
this means that we have located the "top,” the end of the BASIC 
program. (The structure of Atari BASIC is significantly different. See 
Figure 8-2.) 

But back to our examination of the ML program. In line 40 is a 
definition of the zero page location which holds a two-byte number 
that Microsoft BASIC looks at when it is going to print a line number 
on the screen. We will want to store line numbers in this location as 
we come upon them during the execution of our ML search program. 
Each line number will temporarily sit waiting in case a match is 
found. If a match is found, the program will JSR to the BASIC ROM 
routine we're calling "PLINE," as defined in line 70. It will need the 
"current line number" to print to the screen. 

Line 50 establishes that BASIC RAM starts at $0400 and line 60 
gives the address of the "print the character in the accumulator" 
ROM routine. Line 100 says to put the object code into the PET's (all 
BASIC versions) second cassette buffer, a traditional "safe" RAM 
area to store short ML programs. These safe areas are not used by 
BASIC, the operating system (OS), or, generally, by monitors or 
assemblers. If you are working with an assembler or monitor, 
however, and keep finding that your object code has been messed up 
— suspect that your ML creating program (the monitor or assembler) 
is using part of your "safe" place. They consider it safe too. If this 
should happen, you'll have to find a better location. 

Refer to Program 8-1 to follow the logic of constructing our 
Microsoft search program. The search is initiated by typing in line 
zero followed by the item we want to locate. It might be that we are 
interested in removing all REM statements from a program to shorten 
it. We would type 0:REM and hit RETURN to enter this into the 
BASIC program. Then we would start the search by a SYS to the 
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Figure 8-2. Atari BASIC Structure. 
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starting address of the ML program. In the PET 4.0 version of 
Program 8-1, it would be SYS 864 (hex $0360). 

By entering the "sample" string or command into the BASIC 
program as line zero, we solve two problems. First, if it is a string, it 
will be stored as the ASCII code for that string, just as BASIC stores 
strings. If it is a keyword like REM, it will be translated into the 
"tokenized," one-byte representation of the keyword, just as BASIC 
stores keywords. The second problem this solves is that our sample is 
located in a known area of RAM. By looking at Figure 8-1, you can tell 
that the sample's starting address is always the start of BASIC plus 
six. In Program 8-1 that means 0406 (see line 550). 

Set Up The Pointers 

We will have to get the address of the next line in the BASIC program 
we are searching. And then we need to store it while we look through 
the current line. The way that BASIC lines are arranged, we come 
upon the link to the next line's address and the line number before 
we see any BASIC code itself. Therefore, the first order of business is 
to put the address of the next line into L1L. Lines 150 through 180 
take the link found in start-of-BASIC RAM (plus one) and move it to 
the storage pointer "L1L." 

Next, lines 190 to 250 check to see if we have reached the end of 
the BASIC program. It would be the end if we had found two zeros in 
a row as the pointer to the next line's address. If it is the end, the RTS 
sends us back to BASIC mode. 

The subroutine in lines 260 through 440 saves the pointer to the 
following line's address and also the current line number. Note the 
double-byte addition in lines 390-440. Recall that we CLC before any 
addition. If adding four to the LSB (line 400) results in a carry, we 
want to be sure that the MSB goes up by one during the add-with- 
carry in line 430. It might seem to make no sense to add a zero in that 
line. What's the point? The addition is with carry; in other words, if 
the carry flag has been set up by the addition of four to the LSB in line 
400, then the MSB will go up by one. The carry will make this 
happen. 

First Characters 

It's better to just compare the first character in a word against each 
byte in the searched memory than to try to compare the entire sample 
word. If you are looking for MEM, you don't want to stop at each byte 
in memory and see if M-E-M starts there. Just look for M's. When you 
come upon a M, then go through the full string comparison. If line 
490 finds a first-character match, it transfers the program to "SAME" 
(line 520) which will do the entire comparison. On the other hand, if 
the routine starting at line 451 comes upon a zero (line 470), it knows 
that the BASIC line has ended (they all end with zero). It then goes 
down to "STOPLINE" (line 610) which puts the "next line" address 
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pointer into the "current line" pointer and the whole process of 
reading a new BASIC line begins anew. 

If, however, a perfect match was found (line 560 found a zero at 
the end of the 0:REM line, showing that we had come to the end of 
the sample string) — we go to "PERFECT" and it makes a JSR to print 
out the line number (line 660). That subroutine bounces back (RTS) to 
"STOPLINE" which replaces the "current line" (L1L) pointer with 
the "next line" pointer (L2L). Then we JMP back to "READLINE" 
which, once again, pays very close attention to zeros to see if the 
whole BASIC program has ended with double zeros. We have 
returned to the start of the main loop of this ML program. 

This sounds more complicated than it is. If you've followed 
this so far, you can see that there is enormous flexibility in 
constructing ML programs. If you want to put the "STOPLINE" 
segment earlier than the "SAME" subroutine — go ahead. It is quite 
common to see a structure like this: 

INITIALIZATION 
LDA #15 
STA $83 
MAIN LOOP 
START JSR 1 
JSR 2 
JSR 3 

BEQ START (until some index runs out) 

RTS (to BASIC) 

SUBROUTINES 

1 

2 (each ends with RTS back to the MAIN LOOP) 

3 

DATA 
Table 1 
Table 2 
Table 3 

The Atari FIND Utility 

The second source listing. Program 8-2, adds a FIND command to 
Atari BASIC. You access it with the USR command. It is written to 
assemble in page six (1536 or $0600) and is an example of a full-blown 
assembly. You'll need the assembler/editor cartridge to type it in. 

After you've entered it, enter "ASM" to assemble it into 
memory. After it is finished, use the SAVE command to store the 
object (executable ML) code on tape or disk. Use: 

SAVE#C: > 0600,067E for tape 
SAVE#D:FIND.OBJ< 0600 067E for disk 
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You can then put the BASIC cartridge in and enter the machine 
language with the BASIC loader program, or with the L command of 
DOS. 

Using FIND from BASIC is simple. Say you want to search a 
master string, A$ for the substring "hello”. If B$ contains "hello", 
the USR call would look like: 

POS = USR (1536,ADR(A$),LEN(A$),ADR(B$),LEN(B$) ) 

POS will contain the position of the match. It will be a memory 
location within the ADRress of A$. To get the character position 
within A$, just use POS-ADR(A$) +1. If the substring (B$) is not 
found, POS will be zero. 

It's easy to add commands like this to Atari BASIC. Also see 
"Getting The Most Out Of USR" in the November 1982 issue of 
COMPUTE! Magazine (p. 100). 

64, Apple, & VIC Versions 

Versions of the search routine for the Commodore 64 and VIC-20 
and the Apple II are provided as BASIC loader programs. 
Remember from Chapter 2 that a loader is a BASIC program 
which POKEs a machine language program (stored in DATA 
statements) into memory. Once you have entered and run the 
BASIC programs, you can examine the ML programs using a 
disassembler. (See Appendix D.) 

These versions are similar to the PET Version outlined in 
Program 8-1. The characters to be searched for are typed in line 0. 
To start the search in the 64 version (Program 8-3), type SYS 
40800. Use CALL 768 to activate the Apple version (Program 8-4). 
The VIC version (Program 8-5) is activated with SYS 828. 

As your skills improve, you will likely begin to appreciate, and 
finally embrace, the extraordinary freedom that ML confers on the 
programmer. Learning it can seem fraught with obscurity and rules. 
It can even look menacing. But there are flights you will soon be 
taking through your computer. Work at it. Try things. Learn how to 
find your errors. It's not circular — there will be considerable 
advances in your understanding. One day, you might be able to sit 
down and say that you can combine BASIC with ML and do pretty 
much anything you want to do with your machine. 
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00D8 0340 TADRH =$D8 

00D9 0350 ENDLOOP =$D9 

0 360 ; 

0370 ;Syntax documen 
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0602 85CC 0560 STA SADRH 

0604 68 0570 PLA ?lo byte 

0605 85CB 0580 STA SADRL 

0607 68 0590 PLA ;hi byte 









0608 85CE 0600 STA SLENH 

060A 68 0610 PLA ;lo byte 

060B 85CD 0620 STA SLENL 

060D 68 0630 PLA ;hi byte 


8 Building A Program 





C C < b rij 
EH J Eh J -H a Eh 
co cm co cm cm co 
a) 



QSSQStSQISQISSSlSSISSSStSSS 

^)<invDt^cocr>S!iHCNco'^incor^co<y'SrHCNro't 

vocovoiovovor'~r'-r'-r'-r''t^r'-t''["-r-~oooocooooo 

QSSQSQSSSSSQSQSSSQQSQ 


S Pm rH 

a u a 

m co m oo co in 

co 10 co vO vo oo 

HSHn c* in 

® rH .-H ^H HH 

VO VD ^0 VD vO vO 

IS) O IS) O IS) IS) 


114 


just 







Building A Program 8 


P g 

d) o 

CO o 


tJ eh 
O CO 
2! P5 
3 H 


2 EH Q 

Q w la 

< »S D 


o a 
J c4 
a < 


iH < < 
Q Q Eh 
J J CO 


x a 
a w 
j m 


<: >h cu «< a* a xxw 

EhQOQSW 23 Oh S3 

tojojucuQHum 


SSSSSSQSSSSSSSBSSSSSS 
mvor^co<T>iS!<HCMco'vi , invDt''OOCv<s>--HCNco^in 
CX3 00 00CX)00<Ti<J'(T'CT'<riCy'C^(Ti<J'(^!SIS>iS>®®IS) 
IS& IS! IS) IS Q Si IS IS IS) Si IS! IS! IS! IS! IS <—I r-H i—I >—I f —| H 


CM CM 
VO VO 
IS! IS) 


PQ cm r- 

U Q rH 
i—I LO IS! 
CO U fu 

r- ov pq 

CM <M CM 
VO VO VO 
IS! IS! IS! 


a eh 

CXW IS 
O U Q 

OHS 

CM CM CO 
VO VO VO 
IS! IS! SI 


115 


0634 CA 1060 DEX ;Done? 

0635 3006 1070 BMI EXIT ;yes 

0637 D0E8 1080 BNE NXTSRCH ;nope 

1090 SHORT 

0639 A5CD 1100 LDA SLENL ; Set. up last 
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Building A Program 8 
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1580 SKIPINC 

0665 84D3 1590 STY SINDEX ;Update 

0667 D1D7 1600 CMP (TADRL),Y ;equal so far? 

0669 F0E9 1610 BEQ CONTSRCH ryes, continue 

1620 ;Comparison failure. 







1630 ;Return to main loop 
066B A4D4 1640 LDY FR0 

066D 18 1650 CLC ;Used in place 

066E 90BD 1660 BCC NOTFOUND ;of JMP (relocatable) 

1670 ; 
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Building A Program 8 


Program 8-3. 64 Search BASIC Loader. 

799 X=PEEK(55):POKE55,X-l:REM PROTECT ML 

800 FOR ADRES=40800T040913:READ DATTA: 
POKE ADRES,DATTA:NEXT ADRES 

900 PRINT"SYS40800 TO ACTIVATE" 

4096 DATA 162, 0, 173, 1, 8, 133 
4102 DATA 165, 173, 2, 8, 133, 166 
4108 DATA 160, 0, 177, 165, 208, 6 

4114 DATA 200, 177, 165, 208, 1, 96 

4120 DATA 160, 0, 177, 165, 141, 167 

4126 DATA 0, 200, 177, 165, 141, 168 

4132 DATA 0, 200, 177, 165, 133, 57 

4138 DATA 200, 177, 165, 133, 58, 165 
4144 DATA 165, 24, 105, 4, 133, 165 
4150 DATA 165, 166, 105, 0, 133, 166 

4156 DATA 160, 0, 177, 165, 240, 28 

4162 DATA 205, 6, 8, 240, 4, 200 
4168 DATA 76, 158, 159, 162, 0, 232 
4174 DATA 200, 189, 6, 8, 240, 7 
4180 DATA 209, 165, 240, 245, 76, 158 
4186 DATA 159, 32, 201, 159, 165, 167 
4192 DATA 133, 165, 165, 168, 133, 166 
4198 DATA 76, 108, 159, 32, 201, 189 

4204 DATA 169, 32, 32, 210, 255, 96 

READY. 


Program 8-4. Apple Version. 

700 FOR AD=768T0900: READ DA:POKE A 
D,DA:NEXT AD 

768 DATA169,76,141,245,3,169 
774 DATA16,141,246,3,169,3 
780 DATA141,247,3,96,162,0 
786 DATA173,1,8,133,1,173 
792 DATA2,8,133,2,160,0 
798 DATA177,1,208,6,200,177 
804 DATA1,208,1,96,160,0 
810 DATA177,1,133,3,200,177 
816 DATA1,133,4,200,177,1 
822 DATA133,117,200,177,1,133 
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8 Building A Program 


828 DATA118,165,1,24,105,4 
834 DATA133,1,165,2,105,0 
840 DATA133,2,160,0,177,1 
846 DATA240,28,205,6,8,240 
852 DATA4,200,76,76,3,162 
858 DATAO,232,200,189,6,8 
864 DATA240,7,209,1,240,245 
870 DATA76,76,3,76,119,3 
876 DATA165,3,133,1,165,4 
882 DATA133,2,76,28,3,169 
888 DATA163,32,237,253,32,32 
894 DATA237,169,160,32,237,253 
900 DATA76,108,3 


Program 8-5. VIC-20 Search BASIC Loader. 

800 FOR ADRES=828T0941:READ DATTArPOKE ADR 
E S,DATTA:NEXT ADRES 
810 PRINT"SYS 828 TO ACTIVATE" 


828 

DATA 

162 

, 0, 

173, 

1, 

16, 133 

834 

DATA 

187 

, 173 

, 2, 

16, 

133, 188 

840 

DATA 

160 

, 0, 

177, 

187 

, 208, 6 

846 

DATA 

200 

, 177 

, 187 

, 208, 1, 96 

852 

DATA 

160 

, 0, 

177, 

187 

, 141, 190 

858 

DATA 

0, 

200, 

177, 

187 

, 141, 191 

864 

DATA 

0, 

200, 

177, 

187 

, 133, 57 


870 DATA 200, 177, 187, 133, 58, 165 
876 DATA 187, 24, 105, 4, 133, 187 
882 DATA 165, 188, 105, 0, 133, 188 
888 DATA 160, 0, 177, 187, 240, 28 
894 DATA 205, 6, 16, 240, 4, 200 
900 DATA 76, 122, 3, 162, 0, 232 
906 DATA 200, 189, 6, 16, 240, 7 
912 DATA 209, 187, 240, 245, 76, 122 
918 DATA 3, 32, 165, 3, 165, 190 
924 DATA 133, 187, 165, 191, 133, 188 
930 DATA 76, 72, 3, 32, 194, 221 
936 DATA 169, 32, 32, 210, 255, 96 
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9 


ML Equivalents Of 
BASIC Commands 


What follows is a small dictionary, arranged alphabetically, of the 
major BASIC commands. If you need to accomplish something in ML 
— TAB for example — look it up in this chapter to see one way of 
doing it in ML. Often, because ML is so much freer than BASIC, there 
will be several ways to go about a given task. Of these choices, one 
might work faster, one might take up less memory, and one might be 
easier to program and understand. When faced with this choice, I 
have selected example routines for this chapter which are easier to 
program and understand. At ML speeds, and with increasingly 
inexpensive RAM memory available, it will be rare that you will need 
to opt for velocity or memory efficiency. 

CLR 

In BASIC, this clears all variables. Its primary effect is to reset 
pointers. It is a somewhat abbreviated form of NEW since it does not 
"blank out" your program, as NEW does. 

We might think of CLR, in ML, as the initialization routine which 
erases (zeros) the memory locations you've set aside to hold your ML 
flags, pointers, counters, etc. Before your program RUNs, you may 
want to be sure that some of these "variables" are set to zero. If they 
are in different places in memory, you will need to zero them 
individually: 

2000 LDA # 0 

2002 STA 1990 (put zero into one of the "variables") 

2005 STA 1994 (continue putting zero into each byte which 
needs to be initialized) 

On the other hand, maybe you've got your tables, flags, etc., all 
lined up together somewhere in a data table at the start or end of your 
ML program. It's a good idea. If your table is in one chunk of RAM, 
say from 1985 to 1999, then you can use a loop to zero them out: 

2000 LDA # 0 

2002 LDY # 15 (Y will be the counter. There are 15 bytes to zero out in 
this example.) 
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CONT 


2004 STA 1985,Y (the lowest of the 15 bytes) 

2007 DEY 

2008 BNE 2004 (let Y count down to zero, BNEing until Y is zero, 

then the Branch if Not Equal will let the program 
fall through to the next instruction at 2010) 

CONT 

This word allows your program to pick up where it left off after a 
STOP command (or after hitting the system break key). You might 
want to look at the discussion of STOP, below. In ML, you can't 
usually get a running program to stop with the BREAK (or STOP) 
key. If you like, you could write a subroutine which checks to see if a 
particular key is being held down on the keyboard and, if it is, BRK: 
3000 LDA 96 (or whatever your map says is the "key currently 
depressed" location for your machine) 

3002 CMP # 13 (this is likely to be the RETURN key on your 

machine, but you'll want CMP here to the value 
that appears in the "currently pressed" byte for 
the key you select as your STOP key. It could be 
any key. If you want to use "A" for your "stop" 
key, try CMP #65.) 

3004 BNE 3007 (if it's not your target key, jump to RTS) 

3006 BRK (if it is the target, BRK) 

3007 RTS (back to the routine which called this subroutine) 
The 6502 places the Program Counter (plus two) on the stack 

after a BRK. 

A close analogy to BASIC is the placement of BRK within ML 
code for a STOP and then typing .G or GO or RUN — whatever your 
monitor recognizes as the signal to start execution of an ML program 
- to CONT. 

DATA 

In BASIC, DATA announces that the items following the word DATA 
are to be considered pieces of information (as opposed to being 
thought of as parts of the program). That is, the program will 
probably use this data, but the data are not BASIC commands. In ML, 
such a zone of "non-program" is called a table. It is unique only in 
that the program counter never starts trying to run through a table to 
carry out instructions. Program control is never transferred to a table 
since there are no meaningful instructions inside a table. Likewise, 
BASIC slides right over its DATA lines. 

To keep things simple, tables of data are usually stored together 
either below the program or above it in memory. (See Figure 9-1.) 
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DIM 


From within the program, tables can be used to print messages 
to the screen, update or examine flags, etc. If you disassemble your 
BASIC in ROM, you'll find the words STOP, RUN, LIST, and so 
forth, gathered together in a table. You can suspect a data table when 
your disassembler starts giving lots of error messages. It cannot find 
groups of meaningful opcodes within tables. 

Figure 9-1. Typical ML program organization with data tables — 
one at top or bottom of program. 



Bottom of Memory 
Start Of ML Program 


Subroutines 


DIM 

With its automatic string handling, array management, and error 
messages, BASIC makes life easy for the programmer. The price you 
pay for this "hand-holding” is that a program is slow when it's RUN. 
In ML, the DIMensioning of space in memory for variables is not 
explicitly handled by the computer. You must make a note that you 
are setting aside memory from 6000 to 6500, or whatever, to hold 
variables. It helps to make a simple map of this "dimensioned" 
memory so you know where permanent strings, constants, variable 
strings, and variables, flags, etc., are within the dimensioned zone. 

A particular chunk of memory (where, and how much, is up to 
you) is set aside, that's all. You don't write any instructions in ML to 
set aside the memory; you just jot it down so you won't later use the 
reserved space for some other purpose. Managing memory is left up 
to you. It's not difficult, but it is your responsibility. 
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END 


END 

There are several ways to make a graceful exit from ML programs. 

You can look for the "warm start" address on your particular 
computer (in the map of its BASIC locations) and JMP to that address. 
Or you can go to the "cold start" address. This results in the 
computer resetting itself as if you had turned the power off and then 
back on again. 

If you went into the ML from BASIC (with a USR or SYS), you 
can return to BASIC with an RTS. Recall that every JSR matches up 
with its own RTS. Every time you use a JSR, it shoves its "return 
here" address onto the top of the stack. If the computer finds another 
JSR (before any RTS's), it will shove another return address on top of 
the first one. So, after two JRS's, the stack contains two return 
addresses. When the first RTS is encountered, the top return address 
is lifted from the stack and put into the program counter so that the 
program returns control to the current instruction following the most 
recent JSR. 

When the next RTS is encountered, it pulls its appropriate return 
(waiting for it on the stack) and so on. The effect of a SYS or USR 
from BASIC is like a JSR from within ML. The return address to the 
correct spot within BASIC is put on the stack. In this way, if you are 
within ML and there is an RTS (without any preceding JSR), what's 
on the stack had better be a return-to-BASIC address left there by SYS 
or USR when you first went into ML. 

Another way to END is to put a BRK in your ML code. This 
drops you into the machine's monitor. Normally, you put BRKs in 
during program development and debugging. When the program is 
finished, though, you would not want to make this ungraceful exit 
any more than you would want to end a BASIC program with STOP. 

In fact, many ML programs, if they stand alone and are not part 
of a larger BASIC program, never END at all! They are an endless 
loop. The main loop just keeps cycling over and over. A game will not 
end until you turn off the power. After each game, you see the score 
and are asked to press a key when you are ready for the next game. 
Arcade games which cost a quarter will ask for another quarter, but 
they don't end. They go into "attract mode." The game graphics are 
left running on screen to interest new customers. 

An ML word processor will cycle through its main loop, waiting 
for keys to be pressed, words to be written, format or disk 
instructions to be given. Here, too, it is common to find that the word 
processor takes over the machine, and you cannot stop it without 
turning the computer off. Among other things, such an endless loop 
protects software from being easily pirated. Since it takes control of 
the machine, how is someone going to save it or examine it once it's 
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FOR-NEXT 


in RAM? Some such programs are “auto-booting” in that they cannot 
be loaded without starting themselves running. 

BASIC, itself a massive ML program, also loops endlessly until 
you power down. When a program is RUNning, all sorts of things are 
happening. BASIC is an interpreter, which means that it must look up 
each word (like INT) it comes across during a RUN (interpreting it, or 
translating its meanings into machine-understandable JSRs). Then 
BASIC executes the correct sequence of ML actions from its collection 
of routines. 

In contrast to BASIC RUNs, BASIC spends 99 percent of its time 
waiting for you to program with it. This waiting for you to press keys 
is its “endless” loop, a tight, small loop indeed. It would look like our 
"which key is pressed?” routine. 

2000 LDA 96 (or wherever your machine's map shows that the 
"which key down” value is stored) 

2002 CMP #255 (or whatever value is normally left in this address 
by default when no key is being pressed) 

2004 BEQ 2000 (if it says "no key down,” cycle back and wait for 
one) 

FOR-NEXT 

Everyone has used "delay loops" in BASIC (FORT=lTO 1000: 

NEXT T). These are small loops, sometimes called do-nothing 
loops because nothing happens between the FOR and the NEXT 
except the passage of time. When you need to let the user read 
something on the screen, it's sometimes easier just to use a delay loop 
than to say "When finished reading, press any key." 

In any case, you'll need to use delay loops in ML just to slow ML 
itself down. In a game, the ball can fly across the screen. It can get so 
fast, in fact, that you can't see it. It just "appears" when it bounces 
off a wall. And, of course, you'll need to use loops in many other 
situations. Loops of all kinds are fundamental programming 
techniques. 

In ML, you don't have that convenient little counter ("T" in the 
BASIC FOR/NEXT example above) which decides when to stop the 
loop. When Tbecomes 1000, go to the instructions beyond the word 
NEXT. Again, you must set up and check your counter variable by 
yourself. 

If the loop is going to be smaller than 255 cycles, you can use the 
X register as the counter (Y is saved for the very useful indirect indexed 
addressing discussed in Chapter 4: LDA (96),Y). So, using X, you can 
count to 200 by: 

2000 LDX #200 (or $C8 hex) 

2002 DEX 

2003 BNE 2002 


125 





FOR-NEXT-STEP 


For loops involving counters larger than 255, you'll need to use 
two bytes to count down, one going from 255 to zero and then 
clicking (like a gear) the other (more significant) byte. To count to 512: 

2000 LDA # 2 

2002 STA 0 (put the 2 into address zero, our MSB, Most 
Significant Byte, counter) 

2004 LDX #0 (set X to zero so that its first DEX will make it 255. 

Further DEX's will count down again to zero, 
when it will click the MSB down from 2 to 1 and 
then finally 0) 

2006 DEX 

2007 BNE 2006 

2009 DEC 0 (click the number in address zero down 1) 

2011 BNE 2006 

Here we used the X register as the LSB (least significant byte) 
and address zero as the MSB. We could use addresses zero and one to 
hold the MSB/LSB if we wanted. This is commonly useful because 
then address zero (or some available, two-byte space in zero page) 
can be used for LDA (0), Y. You would print a message to the screen 
using the combination of a zero page counter and LDA (zero page 
address),Y. 

FOR-NEXT-STEP 


Here you would just increase your counter (usually X or Y) more than 
once. To create FOR I = 100 TO 1 STEP -2 you could use: 

2000 LDX # 100 

2002 DEX 

2003 DEX 

2004 BCC 2002 


For larger numbers you create a counter which uses two bytes 
working together to keep count of the events. Following our example 
above for FOR-NEXT, we could translate FOR I = 512 TO 0 STEP -2: 


2000 LDA # 2 
2002 STA 0 
2004 LDX # 0 

2006 DEX 

2007 DEX 

2008 BNE 2006 
2010 DEC 0 
2012 BNE 2006 


(this counts the MSB) 

(X counts the LSB) 

(here we click X down a second time, for -2) 
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GET 


To count up, use the CoMPare instruction. FOR 1=1 TO 50 
STEP 3: 

2000 LDX # 0 

2002 INX 

2003 INX 

2004 INX 

2005 CPX # 50 

2007 BNE 2002 

For larger STEP sizes, you can use a nested loop within the larger 
one. This would avoid a whole slew of INX's. To write the ML 
equivalent of FOR I = 1 TO 50 STEP 10: 

2000 LDX #0 

2002 LDY #0 

2004 INX 
2005INY 

2006 CPY #10 

2008 BNE 2004 
2010 CPX #50 
2012 BNE 2002 

GET 

Each computer model has its own "which key is being pressed?" 
address, where it holds the value of a character typed in from the 
keyboard. To GET, you create a very small loop which just keeps 
testing the first address in the buffer. 

For Atari (in decimal): 

2000 LDA 764 ("which key pressed" decimal address. In 
advanced assemblers, you could freely mix 
decimal with hex, but not in the Simple 
Assembler.) 

2003 CMP #255 (when an FF value is in this address, it means 

that no key is pressed) 

2005 BEQ 2000 (keep going back and looking until there is some 

key pressed) 

For PET (Upgrade and 4.0) (in decimal) 

2000 LDA 151 ("which key pressed" decimal address) 

2003 CMP #255 
2005 BEQ 2000 

For PET (Original): 

2000 LDA 515 ("which key pressed" decimal address) 

2003 CMP #255 
2005 BEQ 2000 
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GOSUB 


For Apple II (hex): 

2000 LDA C000 ("which key pressed" — note: this is in hex) 

2003 BPL 2000 

2005 STA C010 (clears the keyboard) 

2008 AND #7F (to give you the correct character value) 

For VIC and 64 (decimal): 

2000 LDA 197 

2003 CMP #255 

2008 BEQ 2000 

The Commodore computers have a GET routine similar to the 
one illustrated by these examples, which is built in at $FFE4 which 
can be used for all ROM versions (all models of CBM) because it is a 
fixed JMP table which does not change address when new BASIC 
versions are introduced. See your BASIC's map for Print a Byte to the 
Screen, GET a Byte, and other routines in the Commodore Jump 
Tables. They start at $FFBD. 

The examples above do not conform to PET BASIC's GET. In 
this version of BASIC, the computer does not "wait" for a character. 
If no key is being held down during a GET, the computer moves on 
and no GET takes place. In our ML GETs above, we loop until some 
character is actually pressed. 

For most programming purposes, though, you want to wait 
until a key has actually been pressed. If your program is supposed to 
fly around doing things until a key is pressed, you might use the 
above routines without the loop structure. Just use a CMP to test for 
the particular key that would stop the routine and branch the 
program somewhere else when a particular key is pressed. How you 
utilize and construct a GET-type command in ML is up to you. You 
can, with ML's flexibility, make special adjustments to use the best 
kind of GET for each different application. 

GOSUB 

This is nearly identical to BASIC in ML. Use JSR $NNNN and you 
will go to a subroutine at address NNNN instead of a line number, as 
in BASIC. ("NNNN" just means you can put any hex number in 
there you want to.) Some assemblers allow you to give "labels," 
names to JSR to instead of addresses. The Simple Assembler does not 
allow labels. You are responsible (as with DATA tables, variables, 
etc.) for keeping a list on paper of your subroutine addresses and the 
parameters involved. 

Parameters are the number or numbers handed to a subroutine to 
give it information it needs. Quite often, BASIC subroutines work 
with the variables already established within the BASIC program. In 
ML, though, managing variables is up to you. Subroutines are useful 
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GOTO 


because they can perform tasks repeatedly without needing to be 
programmed into the body of the program each time the task is to be 
carried out. Beyond this, they can be generalized so that a single 
subroutine can act in a variety of ways, depending upon the variable 
(the parameter) which is passed to it. 

A delay loop to slow up a program could be general in the sense 
that the amount of delay is handed to the subroutine each time. The 
delay can, in this way, be of differing durations, depending on what 
it gets as a parameter from the main routine. Let's say that we've 
decided to use address zero to pass parameters to subroutines. We 
could pass a delay of "five” cycles of the loop by: 

2000 LDA # 5 
2002 STA 0 
2004 JSR 5000 

5000 DEC 0 

5002 BEQ 5012 (if address zero has 

counted all the way down 
from five to zero, RTS back 
to the Main Program) 

5004 LDY # 0 

5006 DEY 

5007 BNE 5006 
5009 JMP 5000 
5012 RTS 

A delay which lasted twice as long as the above would merely 
require a single change: 2000 LDA # 10. 

GOTO 

In ML, it's JMP. JMP is like JSR, except the address you leap away 
from is not saved anywhere. You jump, but cannot use an RTS to find 
your way back. A conditional branch would be CMP #0 BEQ 5000. The 
condition of equality is tested by BEQ, Branch if EQual. BNE tests a 
condition of inequality. Branch if Not Equal. Likewise, BCC (Branch if 
Carry is Clear) and the rest of these branches are testing conditions 
within the program. 

GOTO and JMP do not depend on any conditions within the 
program, so they are unconditional. The question arises, when you use 
a GOTO: Why did you write a part of your program that you must 
always (unconditionally) jump over? GOTO and JMP are sometimes 
used to patch up a program, but, used without restraint, they can 
make your program hard to understand later. Nevertheless, JMP can 
many times be the best solution to a programming problem. In fact, it 
is hard to imagine ML programming without it. 


The Main Program 
The Subroutine 
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GOTO 


One additional note about JMP: it makes a program non- 
relocatable. If you later need to move your whole ML program to a 
different part of memory, all the JMP's (and JSR's) need to be checked 
to see if they are pointing to addresses which are no longer correct 
(JMP or JSR into your BASIC ROM's will still be the same, but not 
those which are targeted to addresses within the ML program). This 
can be an important consideration if you are going to use an ML 
subroutine in other programs where the locations might well differ. 
Fully relocatable ML routines can be convenient if you like to program 
by drawing from a personal collection of solved problems. 

2000 JMP 2005 

2003 LDY #3 

2005 LDA #5 

If you moved this little program up to 5000, everything would 
survive intact and work correctly except the JMP 2005 at address 2000. 
It would still say to jump to 2005, but it should say to jump to 5005, 
after the move. You have to go through with a disassembly and check 
for all these incorrect JMP's. To make your programs more 
"relocatable,'' you can use a special trick with unconditional 
branching which will move without needing to be fixed: 

2000 LDY #0 

2002 BEQ 2005 (since we just loaded Y with a zero, this Branch- 
if-EQual-to-zero instruction will always be true 
and will always cause a pseudo-JMP) 

2004 NOP 

2005 LDA #5 

This works because we set the Z flag. Then, when BEQ tests the 
zero flag, it will pass the test, it will find that flag "up" and will 
branch. If you load X, Y, or A with a zero, the zero flag goes up. 

Various monitors and assemblers include a "move it" routine, 
which will take an ML program and relocate it somewhere else in 
memory for you. On the Apple, you can go into the monitor and type 
*5000 < 2000.2006M (although you will have to give the monitor these 
numbers in hex). The first number is the target address. The second 
and third are the start and end of the program you want to move. 

On CBM computers, the built-in monitor (the VIC-20 and the 
Original 2001 ROM set do not have a built-in monitor) does not have a 
Move it command. However, it is easy to add a "monitor extension" 
program to the built-in monitor. Suvemon and Micromon are such 
extensions. The format for Moveit in Commodore machines is .T 2000 
2006 5000 (start and end of the program to be moved, followed by the 
target address). Again, these numbers must be in hex. The T stands 
for transfer. 

The Atari Assembler Editor Cartridge follows a convention 
similar to Apple's: M 5000 < 2000,2006. 
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IF-THEN 

This familiar and primary computing structure is accomplished in ML 
with the combination of CMP-BNE or any other conditional branch: 
BEQ, BCC, etc. Sometimes, the IF half isn't even necessary. Here's 
how it would look: 

2000 LDA 57 (what's in address 57?) 

2002 CMP #15 (is it 15?) 

2004 BEQ 2013 (IF it is, branch up to 2013) 

2006 LDA #10 (or ELSE, put a 10 into address 57) 

2008 STA 57 

2010 JMP 2017 (and jump over the THEN part) 

2013 LDA #20 (THEN, put a 20 into address 57) 

2015 STA 57 

2017 (continue with the program . . .) 

Often, though, your flags are already set by an action, making 
the CMP unnecessary. For example, if you want to branch to 2013 if 
the number in address 57 is zero, just LDA 57 BEQ 2013. This is 
because the act of loading the accumulator will affect the status 
register flags. You don't need to CMP #0 because the zero flag will be 
set if a zero was just loaded into the accumulator. It won't hurt 
anything to use a CMP, but you'll find many cases in ML 
programming where you can shorten and simplify your coding. As 
you gain experience, you will see these patterns and learn how and 
what affects the status register flags. 

INPUT 

This is a series of GETs, echoed to the screen as they are typed in, 
which end when the typist hits the RETURN key. The reason for the 
echo (the symbol for each key typed is reproduced on the screen) is 
that few people enjoy typing without seeing what they've typed. This 
also allows for error correction using cursor control keys or DELETE 
and INSERT keys. To handle all of these actions, an INPUT routine 
must be fairly complicated. We don't want, for example, the DELETE 
to become a character within the string. We want it to immediately act 
on the string being entered during the INPUT, to erase a mistake. 

Our INPUT routine must be smart enough to know what to add 
to the string and what keys are intended only to modify it. Here is the 
basis for constructing your own ML INPUT. It simply receives a 
character from the keyboard, stores it in the screen RAM cells, and 
ends when the RETURN key is pressed. This version is for Upgrade 
and 4.0 CBM/PETs and we'll write it as a subroutine. That simply 
means that when the 13 (ASCII for carriage return) is encountered. 
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LET 


we'll perform an RTS back to a point just following the main program 
address which JSRed to our INPUT routine: 


5000 LDY #0 

5002 LDA158 

5004 BNE 5002 
5006 LDA 623 
5009 CMP #13 
5011 BNE 5014 

5013 RTS 

5014 STA 32768, Y 
5017INY 

5018 LDA #0 
5020 STA 158 
5022 JMP 5002 


(Y will act here as an offset for storing the 
characters to the screen as they come in) 

(this is the “number of keys in the keyboard buffer" 
location. If it's zero, nothing has been typed yet) 

(so we go back to 5002) 

(get the character from the keyboard buffer) 

(is it a carriage return?) 

(if not, continue) 

(otherwise return to the main program) 

(echo it to the screen) 


(reset the “number of keys" counter to zero) 
(continue looking for the next key) 


This INPUT could be made much larger and more complex. As it 
stands, it will contain the string on the screen only. To save the string, 
you would need to read it from screen RAM and store it elsewhere 
where it will not be erased. Or, you could have it echo to the screen, 
but (also using Y as the offset) store it into some safe location where 
you are keeping string variables. The routine above does not make 
provisions for DELETE or INSERT either. The great freedom you 
have with ML is that you can redefine anything you want. You can 
softkey: define a key's meaning via software; have any key perform 
any task. You might use the $ key to DELETE. 

Along with this freedom goes the responsibility for organizing, 
writing, and debugging these routines. 


LET 


Although this word is still available on most BASICs, it is a holdover 
from the early days of computing. It is supposed to remind you that a 
statement like LET NAME=NAME+4 is an assignment of a value to a 
variable, not an algebraic equation. The two numbers on either side of 
the “equals" sign, in BASIC, are not intended to be equal in the 
algebraic sense. Most people write NAME=NAME+4 without using 
LET. However, the function of LET applies to ML as well as to BASIC: 
we must assign values to variables. 

In the Atari, VIC, and Apple, for example, where the address of 
the screen RAM can change depending on how much memory is in 
the computer, etc. — there has to be a place where we find out the 
starting address of screen RAM. Likewise, a program will sometimes 
require that you assign meanings to string variables, counters, and the 
like. This can be part of the initialization process, the tasks performed 
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before the real program, your main routine, gets started. Or it can 
happen during the execution of the main loop. In either case, there 
has to be an ML way to establish, to assign, variables. This also means 
that you must have zones of memory set aside to hold these variables. 

For strings, you can think of LET as the establishment of a 
location in memory. In our INPUT example above, we might have 
included an instruction which would have sent the characters from 
the keyboard to a table of strings as well as echoing them to the 
screen. If so, there would have to be a way of managing these strings. 
For a discussion on the two most common ways of dealing with 
strings in ML, see Chapter 6 under the subhead "Dealing With 
Strings." 

In general, you will probably find that you program in ML using 
somewhat fewer variables than in BASIC. There are three reasons for 
this: 

1. You will probably not write many programs in ML such as 
databases where you manipulate hundreds of names, addresses, etc. 
It might be somewhat inefficient to create an entire data base 
management program, an inventory program for example, in ML. 
Keeping track of the variables would be a nightmare. An important 
benefit of ML is its speed of execution, but a drawback is that it slows 
programming down. So, for an inventory program, you could write 
the bulk of the program in BASIC and simply attach ML routines for 
sorting and searching tasks within the program. 

2. Also, the variables in ML are often handled within a series of 
instructions (not held elsewhere as BASIC variables are). FOR I = 1 
TO 10: NEXT I becomes LDY #1, INY, CPY #10, BNE. Here, the 
BASIC variable is counted for you and stored outside the body of the 
program. The ML "variable," though, is counted by the program 
itself. ML has no interpreter which handles such things. If you want a 
loop, you must construct all of its components yourself. 

3. In BASIC, it is tempting to assign values to variables at the 
start of the program and then to refer to them later by their variable 
names, as in: 10 BALL=79. Then, any time you want to PRINT the 
BALL to the screen, you could say, PRINT CHR$(BALL). Alterna¬ 
tively, you might define it this way in BASIC: 10 BALL$ = "0". In 
either case, your program will later refer to the word BALL. In this 
example we are assuming that the number 79 will place a ball 
character on your screen. 

In ML we are not free to use variable names except when using a 
complicated, advanced assembler. With the Simple Assembler, you 
will find it easier just to LDA #79, STA (screen position) each time. 
Some people like to put the 79 into their zone of variables (that 
arbitrary area of memory set up at the start of a program to hold 
tables, counters, and important addresses). They can pull it out of 
that zone whenever it's needed. That is somewhat cumbersome. 
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though, and slower. You would LDA 1015, STA (screen position), 
assuming you had put a 79 into this "ball'' address earlier. 

Obviously a value like BALL will remain the same throughout a 
program. A ball will look like a ball in your game, whatever else 
happens. So, it's not a true variable, it does not vary. It is constant. A 
true variable must be located in your "zone of variables," your 
variable table. It cannot be part of the body of your program itself (as 
in: LDA #79) because it will change. You don't know when writing 
your program what the variable will be. So you can't use immediate 
mode addressing because it might not be a #79. You have to LDA 1015 
(or whatever) from within your table of variables. 

Elsewhere in the program you have one or more STA 1015's or 
INC 1015's or some other manipulation of this address which keeps 
updating this variable. In effect, ML makes you responsible for 
setting aside areas which are safe to hold variables. What's more, you 
have to remember the addresses, and update the variables in those 
addresses whenever necessary. This is why it is so useful to keep a 
piece of paper next to you when you are writing ML. The paper lists 
the start and end addresses of the zone of variables, the table. You 
also write down the specific address of each variable as you write 
your program. 

LIST 

This is done via a disassembler. It will not have line numbers (though, 
again, advanced assembler-disassembler packages do have line 
numbers). Instead, you will see the address of each instruction in 
memory. You can look over your work and debug it by working with 
the disassembler, setting BRKs into problem areas, etc. See 
Appendix D. 

LOAD 

The method of saving and loading an ML program varies from 
computer to computer. Normally, you have several options which 
can include loading: from within the monitor, from BASIC, or even 
from an assembler. When you finish working on a program, or a 
piece of a program, on the Simple Assmbler you will be given the 
starting and ending addresses of your work. Using these, you can 
save to tape or disk in the manner appropriate to your computer. To 
LOAD, the simplest way is just to LOAD as if you were bringing in a 
BASIC program. Unfortunately, this only works on Commodore 
machines. You'll get your ML program, not a BASIC program, so it 
won't start at the normal starting address for BASIC unless you wrote 
and saved it at that address. You should type NEW after loading it, 
however, to reset some pointers in the computer. That will not NEW 
out the ML program. 
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To save from within the monitor on Commodore machines: 

.S "PROGRAM NAME",01,NNNN,NNNN* (for tape) 

.L "PROGRAM NAME",01 (for tape) 

.S "0:PROGRAM NAME",08,NNNN,NNNN* (for disk) 

.L "0:PROGRAM NAME",08 (for disk) 

*You should add one to the hex number for the end of your 
program or the SAVE will clip off the last byte. If your program exists 
in RAM from $0300 to $0350, you save it like this: .S "PROGRAM 
NAME",01,0300,0351. 

On the Apple, you must BLOAD from disk. On the Atari, if you 
have DOS you can use the "L" command from the DOS menu to 
LOAD in an ML program. If you don't, you need to use a short 
BASIC program that grabs in the bytes via a series of GETs: 

10 OPEN#1,4,0,"C:" 

20 GET#1,NN:GET#1,NN: REM DISCARD THE HEADER 
30 GET#l,LO:GET#l,HI: REM START ADDRESS 
40 START = LO + 256*HI 

50 GET#l,LO:GET#l,HI: REM ENDING ADDRESS 
60 FIN = LO + 256*HI 
70 TRAP 100 

80 FORI = START TO FIN: GET#1, A: POKEI,A:NEXTI 
90 GOTO 30 
100 END 

Note: This will not work correctly if the START and FIN 
addresses overlap this BASIC program in memory. It would 
then load in on top of itself. 

NEW 

In Microsoft BASIC, this has the effect of resetting some pointers 
which make the machine think you are going to start over again. The 
next program line you type in will be put at the "start-of-a-BASIC- 
program" area of memory. Some computers, the Atari for example, 
even loash memory by filling it with zeros. There is no special 
command in ML for NEWing an area of memory, though some 
monitors have a "fill memory" option which will fill a block of 
memory as big as you want with whatever value you choose. 

The reason that NEW is not found in ML is that you do not 
always write your programs in the same area of memory (as you do in 
BASIC), building up from some predictable address. You might have 
a subroutine floating up in high memory, another way down low, 
your table of variables just above the second subroutine, and your 
main program in the middle. Or you might not. We've been using 
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ON GOSUB 


2000 as our starting address for many of the examples in this book 
and 5000 for subroutines, but this is entirely arbitrary. 

To "NEW” in ML, just start assembling over the old program. 
Alternatively, you could just turn the power off and then back on 
again. This would, however, have the disadvantage of wiping out 
your assembler along with your program. 


ON GOSUB 


In BASIC, you are expecting to test values from among a group of 
numbers: 1,2,3,4,5 .... The value of X must fall within this narrow 
range: ON X GOSUB 100, 200, 300 .. . (X must be 1 or 2 or 3 here). In 
other words, you could not conveniently test for widely separated 
values of X (18, 55, 220). Some languages feature an improved form of 
ON GOSUB where you can test for any values. If your computer 
were testing the temperature of your bathwater: 

CASE 

80 OF GOSUB HOT ENDOF 

100 OF GOSUB VERYHOT ENDOF 

120 OF GOSUB INTOLERABLE ENDOF 

ENDCASE 


ML permits you the greater freedom of the CASE structure. 
Using CMP, you can perform a multiple branch test: 


2000 LDA150 
2002 CMP # 80 
2004 BNE 2009 
2006 JSR 5000 

2009 CMP # 100 
2011 BNE 2016 
2013 JSR 5020 
2016 CMP # 120 
2018 BNE 2023 
2020 JSR 5030 


(get a value, perhaps input from the keyboard) 

(where you would print "hot," following your 
example of CASE) 

(print "very hot") 


(print "intolerable") 


Since you are JSRing and then will be RTSing back to within the 
multiple branch test above, you will have to be sure that the 
subroutines up at 5000 do not change the value of the accumulator. If 
the accumulator started out with a value of 80 and, somehow, the 
subroutine at 5000 left a 100 in the accumulator, you would print 
"hot" and then also print "very hot." One way around this would be 
to put a zero into the accumulator before returning from each of the 
subroutines (LDA #0). This assumes that none of your tests, none of 
your cases, responds to a zero. 
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ON GOTO 

This is more common in ML than the ON GOSUB structure above. It 
eliminates the need to worry about what is in the accumulator when 
you return from the subroutines. Instead of RTSing back, you jump 
back, following all the branch tests. 

2000 LDA150 
2002 CMP # 80 
2004 BNE 2009 

2006 JMP 5000 (print "hot") 

2009 CMP # 100 
2011 BNE 2016 

2013 JMP 5020 (print "very hot") 

2016 CMP # 120 
2018 BNE 2023 

2020 JMP 5030 (print "intolerable") 

2023 (all the subroutines JMP 2023 when they finish) 

Instead of RTS, each of the subroutines will JMP back to 2023, 
which lets the program continue without accidentally "triggering" 
one of the other tests with something left in the accumulator during 
the execution of one of the subroutines. 

PRINT 


You could print out a message in the following way: 

2000 LDY #0 

2002 LDA #72 (use whatever your computer's screen POKE 
value is for the letter "H") 

2004 STA 32900, Y (an address on the screen) 

2007INY 

2008 LDA #69 (the letter "E") 

2010 STA 32900, Y 

2013 INY 

2014 LDA #76 (the letter "L") 

2016 STA 32900, Y 

2019 INY 

2020 LDA #76 (the letter "L") 

2022 STA 32900, Y 

2025 INY 

2026 LDA #79 (the letter "O") 

2028 STA 32900, Y 

But this is clearly a cumbersome, memory-eating way to go 
about it. In fact, it would be absurd to print out a long message this 
way. The most common ML method involves putting message strings 
into a data table and ending each message with a zero. Zero is never a 
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printing character in computers (excepting Atari which cannot use 
the technique described here). To print the ASCII number zero, you 
use 48: LDA #48, STA 32900. So, zero itself can be used as a delimiter 
to let the printing routine know that you've finished the message. In 
a data table, we first put in the message "hello". Recall that you 
should substitute your own computer's screen POKE code: 

1000 72 H 

1001 69 E 

1002 76 L 

1003 76 L 

1004 79 O 

1005 0 (the delimiter, see Chapter 6) 

1006 72 H 

1007 731 (another message) 

1008 0 (another delimiter) 

Such a message table can be as long as you need; it holds all 
your messages and they can be used again and again: 

2000 LDY #0 

2002 LDA 1000, Y 

2005 BEQ 2012 (if the zero flag is set, it must mean that we've 
reached the delimiter, so we branch out of this 
printing routine) 

2005 STA 39000, Y (put it on the screen) 

2008INY 

2009 JMP 2002 (go back and get the next letter in the message) 

2012 (continue with the program.) 

Had we wanted to print "HI," the only change necessary would 
have been to put 1006 into the LDA at address 2003. To change the 
location on the screen that the message starts printing, we could just 
put some other address into 2006. The message table, then, is just a 
mass of words, separated by zeros, in RAM memory. 

The easiest way to print to the screen, especially if your program 
will be doing a lot of printing, is to create a subroutine and use some 
bytes in zero page (addresses 0 to 255) to hold the address of the 
message and the screen location you want to send it to. This is one 
reason why hex numbers can be useful. To put an address into zero 
page, you will need to put it into two bytes. It's too big to fit into one 
byte. With two bytes together forming an address, the 6502 can 
address any location from $0000 to the top $FFFF. So, if the message 
is at decimal location 1000 like "HELLO" above, you should turn 
1000 into a hex number. It's $03E8. 

Then you split the hex number in two. The left two digits, $03, 
are the MSB (the most significant byte) and the right digits, $E8, make 
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up the LSB (least significant byte). If you are going to put this target 
address into zero page at 56 (decimal): 

2000 LDA #232 (LSB, in decimal) 

2002 STA 56 

2004 LDA #3 (MSB) 

2006 STA 57 

2008 JSR 5000 (printout subroutine) 


5000 LDY #0 
5002 LDA (56),Y 

5004 BEQ 5013 (if zero, return from subroutine) 
5006 STA 32900, Y (to screen) 

5009 INY 

5010 JMP 5002 
5013 RTS 


One drawback to the subroutine is that it will always print any 
messages to the same place on the screen. That 32900 (or whatever 
you use there) is frozen into your subroutine. Solution? Use another 
zero page pair of bytes to hold the screen address. Then, your calling 
routine sets up the message address, as above, but also sets up the 
screen address. 

The Atari contains the address of the first byte of the screen 
addresses in zero page for you at decimal 88 and 89. You don't need 
to set up a screen address byte pair on the Atari. We are using the 
Apple II's low resolution screen for the examples in this 
book, so you will want to put 0 and 4 into the LSB and MSB 
respectively. The PET's screen is always located in a particular place, 
unlike the Atari, Apple, VIC, and 64 screen RAM locations which can 
move, so you can put a $00 and an $80 into LSB and MSB for PET. 

The following is in decimal: 


2000 LDA #232 
2002 STA 56 
2004 LDA #3 
2006 STA 57 
2008 LDA # 0 
2010 STA 58 

2012 LDA # 4 
2014 STA 59 
2016 JSR 5000 


(LSB) 

(set up message address) 

(MSB) 

(LSB for PET and Apple) 

(we'll just use the next two bytes in zero page 
above our message address for the screen address) 
(this is for Apple II; use 128 ($80) for PET) 


5000 LDY #0 
5002 LDA (56),Y 

5004 BEQ 5013 (if zero, return from subroutine) 
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5006 STA (58),Y (to screen) 

5009 INY 

5010 JMP 5002 

5013 RTS 

For Atari: 5006 STA (88), Y. You have less flexibility because you 
will always be printing your messages to the first line on screen, 
using address 88 as your screen storage target. To be able to put the 
message anywhere on screen, Atari users will have to use some other 
zero page for the screen address, as we did for Apple II and PET 
above. Atari users would have to keep track of the "cursor position" 
for themselves in that case. 

READ 

There is no reason for a reading of data in ML. Variables are not placed 
into ML "DATA statements."' They are entered into a table when you 
are programming. The purpose of READ, in BASIC, is to assign 
variable names to raw data or to take a group of data and move it 
somewhere, or to manipulate it into an array of variables. These 
things are handled by you, not by the computer, in ML programming. 

If you need to access a piece of information, you set up the 
addresses of the datum and the target address to which you are 
moving it. See the "PRINT" routines above. As always, in ML you 
are expected to keep track of the locations of your variables. You keep 
a map of data locations, vectors, tables, and subroutine locations. A 
pad of paper is always next to you as you program in ML. It seems as 
if you would need many notes. In practice, an average program of say 
1000 bytes could be mapped out and commented on, using only one 
sheet. 

REM 

You do this on a pad of paper, too. If you want to comment or make 
notes about your program — and it can be a necessary, valuable 
explanation of what's going on — you can disassemble some ML code 
like a BASIC LISTing. If you have a printer, you can make notes on 
the printed disassembly. If you don't have a printer, make notes on 
your pad to explain the purpose of each subroutine, the parameters it 
expects to get, and the results or changes it causes when it operates. 

Complex, large assemblers often permit comments within the 
source code. As you program with them, you can include REMarks 
by typing a semicolon, or parentheses, or some other signal to the 
assembler to ignore the REMarks when it is assembling your 
program. In these assemblers, you are working much closer to the 
way you work in BASIC. Your remarks remain part of the source 
program and can be listed out and studied. 
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RETURN 

RTS works the same way that RETURN does in BASIC: it takes you 
back to just after the JSR (GOSUB) that sent control of the program 
away from the main program and into a subroutine. JSR pushes, onto 
the stack, the address which immediately follows the JSR itself. That 
address then sits on the stack, waiting until the next RTS is 
encountered. When an RTS occurs, the address is pulled from the 
stack and placed into the program counter. This has the effect of 
transferring program control back to the instruction just after the JSR. 

RUN 

There are several ways to start an ML program. If you are taking off 
into ML from BASIC, you just use SYS or USR or CALL. They act just 
like JSR and will return control to BASIC, just like RETURN would, 
when there is an unmatched RTS in the ML program. By unmatched 
we mean the first RTS which is not part of a JSR/RTS pair. USR and 
SYS and CALL can be used either in immediate mode (directly from the 
keyboard) or from within a BASIC program as one of the BASIC 
commands. 

USR is just like SYS and CALL except that you can "send” values 
from BASIC to ML by attaching them to the USR ( ) within the 
parentheses. In Microsoft BASIC (Apple, PET/CBM, etc.), you must 
set up the location of your target ML program in special USR 
addresses, before exiting BASIC via USR. For example, to "gosub" to 
an ML routine located at $0360 (hex), you want to put a $60 (hex) into 
address 1 and an 03 into address 2. The 03 is obvious, just POKE 2,3. 
Atari goes from BASIC to ML via USR. The USR's argument may 
place several parameters on the stack along with the "count," the 
number of parameters which were passed. 

The hex 60 means that you would multiply 16 x 6, since the 
second column in hex is the "16's" column. So you would POKE 1, 

96. Recall that we always set up ML addresses to be used by "indirect 
indexed addressing" (LDA (00), Y) by putting the LSB (least 
significant byte) first. To set up 0360, then, you first separate the hex 
number into its two bytes, 03 60. Then you translate them into 
decimal since we're in BASIC when we use USR: 3 96. Then you 
switch them so that they conform to the correct order for ML: 

LSB/MSB 96 3. Finally, you POKE them into memory locations 1 
and 2. 

If this seems rather complex, it is. In practice, Microsoft BASIC 
users rarely use USR. The number which is "passed" to ML from 
within the parentheses is put into the floating point accumulator. 
Following this you must JSR to FPINT, a BASIC ROM routine which 
converts a floating point value into an integer that you could work 
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with in ML. As we mentioned, working with floating point arithmetic 
in ML is an arcane art. For most applications which must pass 
information from BASIC to ML, it is far easier to use ordinary 
"integer'' numbers and just POKE them into some predetermined 
ML variable zone that you've set aside and noted on your workpad. 
Then just SYS to your ML routine, which will look into the set-aside, 
POKEd area when it needs the values from BASIC. 

In Atari BASIC, USR works in a more simplified and more 
convenient way. For one thing, the target ML address is contained 
within the argument of the USR command: USR (address). This 
makes it nearly the exact parallel of BASIC's GOSUB. What's more, 
USR passes values from BASIC by putting them on the stack as a two- 
byte hex number. USR (address,X) does three things. 1. It sends 
program control to the ML routine which starts at "address." 2. It 
pushes the number X onto the stack where it can be pulled out with 
PLA's. 3. Finally, it pushes the total number of passed values onto the 
stack. In this case, one value, X, was passed to ML. All of these 
actions are useful and make the Atari version of USR a more sensible 
way of GOSUBing from BASIC to ML. 

If you are not going between BASIC and ML, you can start 
(RUN) your ML program from within your "monitor." The PET/CBM 
and the Apple have built-in monitor programs in their ROM chips. 

On the Atari, a monitor is available as part of a cartridge. On the 
"Original" PET/CBM (sometimes called BASIC 2.0), there is no built- 
in monitor. A cassette with a program called TIM (terminal interface 
monitor) can be LOADed, though, and used in the same way that the 
built-in versions are on later models. Neither the VIC nor the 64 has a 
built-in monitor. 

To enter "monitor mode" (as opposed to the normal BASIC 
mode), you can type SYS 1024 or SYS 4 on the PET/CBM. These 
locations always contain a zero and, by "landing" on a zero in ML, 
you cause a BRK to take place. This displays the registers of your 6502 
and prints a dot on the screen while waiting for your instructions to 
the monitor. To enter the monitor on Apple II, type CALL -151 and 
you will see an asterisk (instead of PET's period) as your prompt. 
From within Atari's Assembler Cartridge, you would type BUG to 
enter the equivalent of the Apple and PET monitor. The Atari will 
print the word DEBUG and then the cursor will wait for your next 
instruction. 

To RUN an ML program, all five computers use the abbreviation 
G to indicate "goto and run" the hex address which follows the G. 
Unfortunately, the format of the ML RUN (G), as always, differs 
between machines. To run a program which starts at address $2000: 
Apple II, you type: 2000G (8192 in decimal) 

PET, VIC,64, you type: G 2000 
Atari, you type: G 2000 
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STOP 


One other difference: the Apple II expects to encounter an 
unmatched RTS to end the run and return control to the monitor. Put 
another way, it will think that your ML program is a subroutine and 
2000G causes it to JSR to the subroutine at address (in hex) 2000. The 
Commodores and the Atari both look for a BRK instruction (00) to 
throw them back into monitor mode. 

SAVE 

When you SAVE a BASIC program, the computer handles it 
automatically. The starting address and the ending address of your 
program are calculated for you. In ML, you must know the start and 
end yourself and let the computer know. From the Apple II monitor, 
you type the starting and ending address of what you want saved, 
and then "W" for write: 

2000.2010W (This is only for cassette and these commands are 
in hex. These addresses are 8192.8208, in decimal.) 

From BASIC to disk use: 

B SAVE Name, A, L (A = address, L = length) 

On the VIC, 64, and PET, the format for SAVE is similar, but 
includes a filename: 

.S "PROGRAM NAME",01,2000,2010 (the 01 is the "device 
number" of the tape piayer) 

To save to disk, you must change the device number to 08 and 
start the filename with the number of the drive you are SAVEing to: 

.S "0:NAME",08,2000,2010 

(Always add one to the "finish" address; the example 
above saves from 2000 to 200F.) 

With the Atari Assembler Cartridge, you: 

SAVE#C:NAME < 2000,2010 (do this from the EDIT, not 
DEBUG, mode). The NAME is not required with cassette. 

To write Atari source code to cassette, type: SAVE#C. For disk, 
type SAVE#D:FILENAME.EXT or use DOS. 

STOP 

BRK (or an RTS with no preceding JSR, on the Apple) throws you 
back into the monitor mode after running an ML program. This is 
most often used for debugging programs because you can set 
"breakpoints" in the same way that you would use STOP to examine 
variables when debugging a BASIC program. 
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ASC 


String Handling 
ASC 

In BASIC, this will give you the number of the ASCII code which 
stands for the character you are testing. ?ASC(" A") will result in a 65 
being displayed. There is never any need for this in ML. If you are 
manipulating the character A in ML, you are using ASCII already. In 
other words, the letter A is 65 in ML programming. If your computer 
stores letters and other symbols in nonstandard ways (such as 
Commodore character codes for lowercase, and Atari's ATASCII), 
you will need to write a special program to be able to translate to 
standard ASCII if you are using a modem or some other peripheral 
which uses ASCII. See your computer's manual, the Atari BASIC 
Reference Manual for example, for information on your computer's 
internal character code. 

CHR$ 

This is most useful in BASIC to let you use characters which cannot 
be represented within normal strings, will not show up on your 
screen, or cannot be typed from the keyboard. For example, if you 
have a printer attached to your computer, you could "send” 
CHR$(13) to it, and it would perform a carriage return. (The correct 
numbers which accomplish various things sometimes differ, though 
decimal 13 — an ASCII code standard — is nearly universally 
recognized as carriage return.) Or, you could send the combination 
CHR$(27)CHR$(8) and the printer would backspace. 

Again, there is no real use for CHR$ within ML. If you want to 
specify a carriage return, just LDA #13. In ML, you are not limited to 
the character values which can appear on screen or within strings. 
Any value can be dealt with directly. 

The following string manipulation instructions are found in 
Microsoft BASIC: 

LEFTS 

As usual in ML, you are in charge of manipulating data. Here's one 
way to extract a five-character-long "substring" from out of the left 
side of a string as in the BASIC statement: LEFT$ (X$,5) 

2000 LDY #5 

2002 LDX #0 (use X as the offset for buffer storage) 

2004 LDA 1000,Y (the location of X$) 

2007 STA 4000,X (the "buffer," or temporary storage area for 
the substring) 

2010INX 

2011 DEY 

2012 BNE 2004 
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RIGHTS 


LEN 


In some cases, you will already know the length of a string in ML. 
One of the ways to store and manipulate strings is to know 
beforehand the length and address of a string. Then you could use 
the subroutine given for LEFT$ above. More commonly, though, you 
will store your strings with delimiters (zeros, except in Atari) at the 
end of each string. To find out the length of a certain string: 


2000 LDY #0 

2002 LDA 1000,Y (the address of the string you are testing) 

2003 BEQ 2009 (remember, if you LDA a zero, the zero flag is set. 

So you don't really need to use a CMP #0 here to 
test whether you've loaded the zero delimiter) 


2005 INY 

2006 BNE 2002 

2008 BRK 

2009 DEY 


(we are not using a JMP here because we assume 
that all your strings are less than 256 characters 
long.) 

(if we still haven't found a zero after 256 INY's, we 
avoid an endless loop by just BRKing out of the 
subroutine) 

(the LENgth of the string is now in the Y register) 


We had to DEY at the end because the final INY picked up the 
zero delimiter. So, the true count of the LENgth of the string is one 
less than Y shows, and we must DEY one time to make this 
adjustment. 

MID$ 


To extract a substring which starts at the fourth character from within 
the string and is five characters long (as in MID$(X$,4,5) ): 

2000 LDY #5 (the size of the substring we're after) 

2002 LDX #0 (X is the offset for storage of the substring) 

2004 LDA 1003,Y (to start at the fourth character from within the 
X$ located at 1000, simply add three to that 
address. Instead of starting our LDA,Y at 
1000, skip to 1003. This is because the first 
character is not in position one. Rather, it is at 
the zeroth position, at 1000.) 

2007 STA 4000,X (the temporary buffer to hold the substring) 

2010 INX 

2011 DEY 

2012 BNE 2004 

RIGHTS 


This, too, is complicated because normally we do not know the 
LENgth of a given string. To find RIGHT$(X$,5) if X$ starts at 1000, 
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RIGHTS 


we should find the LEN first and then move the substring to our 
holding zone (buffer) at 4000: 


2000 LDY #0 
2002 LDX #0 
2004 LDA 1000, Y 

2007 BEQ 2013 (the delimiting zero is found, so we know LEN) 

2009 INY 

2010 JMP 2004 

2013 TYA (put LEN into A to subtract substring size from it) 

2014 SEC (always set carry before subtraction) 

2015 SBC #5 (subtract the size of the substring you want to 

extract) 


2017 TAY (put the offset back into Y, now adjusted to point to 

five characters from the end of X$) 

2018 LDA 1000, Y 

2021 BEQ 2030 (we found the delimiter, so end) 

2023 STA 4000, X 

2026 INX 

2027 DEY 

2028 BNE 2018 
2030 RTS 


The above does not apply to Atari since it cannot use zero as a 
delimiter. 


SPC 


This formatting instruction is similar to TAB. The difference is that 
SPC(10) moves you ten spaces to the right from wherever the cursor 
is on screen at the time. TAB(10) moves ten spaces from the left-hand 
side of the screen. In other words, TAB always counts over from the 
first column on any line; SPC counts from the cursor's current 
position. 

In ML, you would just add the amount you want to SPC over. If 
you were printing to the screen and wanted ten spaces between A 
and B so it looked like this (A B), you could write: 

2000 LDA #65 (A) 

2002 STA 32768 (screen RAM address) 

2005 LDA #66 (B) 

2007 STA 32778 (you've added ten to the target address) 
Alternatively, you could add ten to the Y offset: 

2000 LDY #0 

2002 LDA #65 

2004 STA 32768, Y 

2007 LDY #10 (add ten to Y) 
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TAB 


2009 LDA #66 
2011 STA 32768, Y 

If you are printing out many columns of numbers and need a 
subroutine to correctly space your printout, you might want to use a 
subroutine which will add ten to the Y offset each time you call the 
subroutine: 

5000 TYA 

5001 CLC 

5002 ADC #10 

5004 TAY 

5005 RTS 

This subroutine directly adds ten to the Y register whenever you 
JSR 5000. To really do this job, however, you should use a two-byte 
register to keep track of the cursor. 

TAB 

Quite similar to SPC, except that you don't add the offset from the 
cursor position (whatever location you most recently printed). 

Rather, TAB(X) moves ten over from the left side of the screen, or, if 
you are using a printer, from the left margin on the piece of paper. 
There is no particular reason to use TAB in ML. You have much more 
direct control in ML over where characters are printed out. 
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Appendix A 


ADC Add Memory To Accumulator With Carry 

Status Flags 

N Z C 

I D V 


• • • 



Addressing 

Mnemonics 

Opcode 

Size 

Mode 



In Bytes 

Immediate 

ADC #Arg 

69 

2 

Zero Page 

ADC Arg 

65 

2 

Zero Page, X 

ADC Arg, X 

75 

2 

Absolute 

ADC Arg 

6D 

3 

Absolute, X 

ADC Arg, X 

7D 

3 

Absolute, Y 

ADC Arg, Y 

79 

3 

(Indirect, X) 

ADC (Arg, X) 

61 

2 

(Indirect), Y 

ADC (Arg), Y 

71 

2 


AND "AND” Memory With Accumulator 

Status Flags 

N Z C 

I D 

V 

Addressing 

Mode 

Mnemonics 

Opcode 

Size 

In Bytes 

Immediate 

AND # Arg 

29 

2 

Zero Page 

AND Arg 

25 

2 

Zero Page, X 

AND Arg,X 

35 

2 

Absolute 

AND Arg 

2D 

3 

Absolute, X 

AND Arg, X 

3D 

3 

Absolute, Y 

AND Arg, Y 

39 

3 

(Indirect, X) 

AND (Arg, X) 

21 

2 

(Indirect), Y 

AND (Arg),Y 

31 

2 
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ASL 


ASL 

Shift Left One Bit 


Status Flags 

N Z C 

I D 

V 

Addressing 

Mode 

Mnemonics 

Opcode 

Size 

In Bytes 

Accumulator 

ASL A 

0A 

1 

Zero Page 

ASL Arg 

06 

2 

Zero Page, X 

ASL Arg, X 

16 

2 

Absolute 

ASL Arg 

0E 

3 

Absolute, X 

ASL Arg, X 

IE 

3 


BCC 

Branch On Carry Clear 


Status Flags 

N Z C 

I D 

V 

Addressing 

Mode 

Mnemonics 

Opcode 

Size 

In Bytes 

Relative 

BCC Arg 

90 

2 


BCS 

Branch On Carry Set 


Status Flags 

N Z C 

I D 

V 

Addressing 

Mnemonics 

Opcode 

Size 

Mode 



In Bytes 

Relative 

BCS Arg 

BO 

2 
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BNE 


BEQ 

Branch On Zero 



Status Flags 

N Z C 

I D 

V 

Addressing 

Mode 

Mnemonics 

Opcode 

Size 

In Bytes 

Relative 

BEQ Arg 

FO 

2 


BIT Test Bits In Memory Against Accumulator 

Status Flags 

N Z C 

I D 

V 


• • 


• 

Addressing 

Mnemonics 

Opcode 

Size 

Mode 



In Bytes 

Zero Page 

BIT Arg 

24 

2 

Absolute 

BIT Arg 

2C 

3 


BMI 

Branch On Minus 


Status Flags 

N Z C 

I D 

V 

Addressing 

Mnemonics 

Opcode 

Size 

Mode 



In Bytes 

Relative 

BMI Arg 

30 

2 


BNE 

Branch On Anything But Zero 


Status Flags 


N Z C 

I D 

V 

Addressing 

Mode 

Mnemonics 

Opcode 

Size 

In Bytes 

Relative 

BNE Arg 

DO 

2 
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BPL 


BPL 

Branch On Plus 



Status Flags 

N Z C 

I D 

V 

Addressing 

Mode 

Mnemonics 

Opcode 

Size 

In Bytes 

Relative 

BPL Arg 

10 

2 


BRK 

Break 



Status Flags 

N Z C 

I D 

V 

Addressing 

Mode 

Mnemonics 

Opcode 

Size 

In Bytes 

Implied 

BRK 

00 

1 


BVC Branch On Overflow Clear 

Status Flags 

N Z C 

I D V 

Addressing 

Mode 

Mnemonics 

Opcode 

Size 

In Bytes 

Relative 

BVC Arg 

50 

2 


BVS 

Branch On Overflow Set 


Status Flags 

N Z C 

I D V 

Addressing 

Mode 

Mnemonics 

Opcode 

Size 

In Bytes 

Relative 

BVS Arg 

70 

2 
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CLV 


CLC 

Clear Carry Flag 


Status Flags 

N Z C 

• 

I D 

V 

Addressing 

Mode 

Mnemonics 

Opcode 

Size 

In Bytes 

Implied 

CLC 

18 

1 


CLD 

Clear Decimal Mode 


Status Flags 

N Z C 

I D 

V 

Addressing 

Mode 

Mnemonics 

Opcode 

Size 

In Bytes 

Implied 

CLD 

D8 

1 


CLI 

Clear Interrupt Disable Bit 


Status Flags 


N Z C 

I D 

V 

Addressing 

Mode 

Mnemonics 

Opcode 

Size 

In Bytes 

Implied 

CLI 

58 

1 


CLV 

Clear Overflow Flag 


Status Flags 

N Z C 

I D 

V 

Addressing 

Mode 

Mnemonics 

Opcode 

Size 

In Bytes 

Implied 

CLV 

B8 

1 
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CMP 


CMP Compare Memory And Accumulator 

Status Flags 

N Z C 

I D 

V 

Addressing 

Mode 

Mnemonics 

Opcode 

Size 

In Bytes 

Immediate 

CMP # Arg 

C9 

2 

Zero Page 

CMP Arg 

C5 

2 

Zero Page, X 

CMP Arg, X 

D5 

2 

Absolute 

CMP Arg 

CD 

3 

Absolute, X 

CMP Arg, X 

DD 

3 

Absolute, Y 

CMP Arg, Y 

D9 

3 

(Indirect, X) 

CMP (Arg, X) 

Cl 

2 

(Indirect), Y 

CMP (Arg), Y 

D1 

2 


| CPX Compare Memory Against X Register 


Status Flags 

N Z C 

• • • 

I D 

V 

Addressing 

Mode 

Mnemonics 

Opcode 

Size 

In Bytes 

Immediate 

CPX # Arg 

EO 

2 

Zero Page 

CPX Arg 

E4 

2 

Absolute 

CPX Arg 

EC 

3 


CPY Compare Memory Against Y Register 

Status Flags 

N Z C 

I D 

V 

Addressing 

Mode 

Mnemonics 

Opcode 

Size 

In Bytes 

Immediate 

CPY # Arg 

CO 

2 

Zero Page 

CPY Arg 

C4 

2 

Absolute 

CPY Arg 

cc 

3 
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DEY 


DEC Decrement Memory By One 

Status Flags 

N Z C 

• • 

I D 


Addressing 

Mode 

Mnemonics 

Opcode 

Size 

In Bytes 

Zero Page 

DEC Arg 

C6 

2 

Zero Page, X 

DEC Arg, X 

D6 

2 

Absolute 

DEC Arg 

CE 

3 

Absolute, X 

DEC Arg, X 

DE 

3 


DEX 

Decrement X Register By One 


Status Flags 


N Z C 

• • 

I D 

V 

Addressing 

Mode 

Mnemonics 

Opcode 

Size 

In Bytes 

Implied 

DEX 

CA 

1 


DEY 

Decrement Y Register By One 


Status Flags 


N Z C 

I D 

V 

Addressing 

Mode 

Mnemonics 

Opcode 

Size 

In Bytes 

Implied 

DEY 

88 

1 
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EOR 


EOR Exclusive—Or Memory With Accumulator 

Status Flags 

N Z C 

• • 

I D V 

Addressing 

Mode 

Mnemonics 

Opcode 

Size 

In Bytes 

Immediate 

EOR # Arg 

49 

2 

Zero Page 

EOR Arg 

45 

2 

Zero Page, X 

EOR Arg, X 

55 

2 

Absolute 

EOR Arg 

4D 

3 

Absolute, X 

EOR Arg, X 

5D 

3 

Absolute, Y 

EOR Arg, Y 

59 

3 

(Indirect, X) 

EOR (Arg, X) 

41 

2 

(Indirect), Y 

EOR (Arg), Y 

51 

2 


INC 

ncrement Memory By One 


Status Flags 

N Z C 

I D 

V 

Addressing 

Mode 

Mnemonics 

Opcode 

Size 

In Bytes 

Zero Page 

INC Arg 

E6 

2 

Zero Page, X 

INC Arg, X 

F6 

2 

Absolute 

INC Arg 

EE 

3 

Absolute, X 

INC Arg, X 

FE 

3 


INX 

Increment X Register By One 


Status Flags 


N Z C 

I D 

V 

Addressing 

Mode 

Mnemonics 

Opcode 

Size 

In Bytes 

Implied 

INX 

. 

E8 

1 
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JSR 


INY 

Increment Y Register By One 


Status Flags 


N Z C 

I D 

V 

Addressing 

Mode 

Mnemonics 

Opcode 

Size 

In Bytes 

Implied 

INY 

C8 

1 


JMP 

Jump 



Status Flags 

N Z C 

I D 

V 

Addressing 

Mode 

Mnemonics 

Opcode 

Size 

In Bytes 

Absolute 

JMP Arg 

4C 

3 

Indirect 

JMP(Arg) 

6C 

3 


| JSR Jump To New Location, But Save Return Address 

Status Flags 

N Z C 

I D 

V 

Addressing 

Mode 

Mnemonics 

Opcode 

Size 

In Bytes 

Absolute 

JSR Arg 

20 

3 
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LDA 


LDA Load Accumulator With Memory 

Status Flags 

N Z C 

I D 

V 

Addressing 

Mode 

Mnemonics 

Opcode 

Size 

In Bytes 

Immediate 

LDA # Arg 

A9 

2 

Zero Page 

LDA Arg 

A5 

2 

Zero Page, X 

LDA Arg, X 

B5 

2 

Absolute 

LDA Arg 

AD 

3 

Absolute, X 

LDA Arg, X 

BD 

3 

Absolute, Y 

LDA Arg, Y 

B9 

3 

(Indirect, X) 

LDA (Arg, X) 

A1 

2 

(Indirect), Y 

LDA (Arg), Y 

B1 

2 


LDX 

Load X Register 



Status Flags 

N Z C 

I D 

V 

Addressing 

Mode 

Mnemonics 

Opcode 

Size 

In Bytes 

Immediate 

LDX # Arg 

A2 

2 

Zero Page 

LDX Arg 

A6 

2 

Zero Page, Y 

LDX Arg, Y 

B6 

2 

Absolute 

LDX Arg 

AE 

3 

Absolute, Y 

LDX Arg, Y 

BE 

3 







NOP 


LDY 

Load Y Register 



Status Flags 

N Z C 

• • 

I D 

V 

Addressing 

Mode 

Mnemonics 

Opcode 

Size 

In Bytes 

Immediate 

LDY # Arg 

AO 

2 

Zero Page 

LDY Arg 

A4 

2 

Zero Page, X 

LDY Arg, X 

B4 

2 

Absolute 

LDY Arg 

AC 

3 

Absolute, X 

LDY Arg, X 

BC 

3 


LSR Shift Right One Bit In Either Memory Or Accumulator 

Status Flags 

N Z C 

I D 

V 

Addressing 

Mode 

Mnemonics 

Opcode 

Size 

In Bytes 

Accumulator 

LSR A 

4A 

1 

Zero Page 

LSR Arg 

46 

2 

Zero Page, X 

LSR Arg, X 

56 

2 

Absolute 

LSR Arg 

4E 

3 

Absolute, X 

LSR Arg, X 

5E 

3 


NOP 

No Operation 



Status Flags 

N Z C 

I D V 

Addressing 

Mode 

Mnemonics 

Opcode 

Size 

In Bytes 

Implied 

NOP 

EA 

1 
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ORA 


ORA OR Memory With Accumulator 

Status Flags 

N Z C 

I D 

V 

Addressing 

Mode 

Mnemonics 

Opcode 

Size 

In Bytes 

Immediate 

ORA # Arg 

09 

2 

Zero Page 

ORA Arg 

05 

2 

Zero Page, X 

ORA Arg, X 

15 

2 

Absolute 

ORA Arg 

0D 

3 

Absolute, X 

ORA Arg, X 

ID 

3 

Absolute, Y 

ORA Arg, Y 

19 

3 

(Indirect, X) 

ORA (Arg, X) 

01 

2 

(Indirect), Y 

ORA (Arg), Y 

11 

2 


PHA 

Push Accumulator Onto The Stack 


Status Flags 


N Z C 

I D 

V 

Addressing 

Mode 

Mnemonics 

Opcode 

Size 

In Bytes 

Implied 

PHA 

48 

1 


PHP 

Push Processor Status Onto The Stack 


Status Flags 


N Z C 

I D 

V 

Addressing 

Mode 

Mnemonics 

Opcode 

Size 

In Bytes 

Implied 

PHP 

08 

1 
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ROL 


PLA 

Pull Accumulator From The Stack 


Status Flags 


N Z C 

I D 

V 

Addressing 

Mode 

Mnemonics 

Opcode 

Size 

In Bytes 

Implied 

PLA 

68 

1 


PLP 

Pull Processor Status From The Stack 


Status Flags 


N Z C 

From Stack 

I D 

V 

Addressing 

Mode 

Mnemonics 

Opcode 

Size 

In Bytes 

Implied 

PLP 

28 

1 


ROL Rotate One Bit Left In Memory Or The Accumulator 

Status Flags 

N Z C 

• • • 

I D 

V 

Addressing 

Mode 

Mnemonics 

Opcode 

Size 

In Bytes 

Accumulator 

ROL A 

2A 

1 

Zero Page 

ROL Arg 

26 

2 

Zero Page, X 

ROL Arg, X 

36 

2 

Absolute 

ROL Arg 

2E 

3 

Absolute, X 

ROL Arg, X 

3E 

3 
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ROR 


ROR Rotate One Bit Right In Memory Or The Accumulator | 

Status Flags 

N Z C 

I D 

V 

Addressing 

Mode 

Mnemonics 

Opcode 

Size 

In Bytes 

Accumulator 

ROR A 

6A 

1 

Zero Page 

ROR Arg 

66 

2 

Zero Page, X 

ROR Arg, X 

76 

2 

Absolute 

ROR Arg 

6E 

3 

Absolute, X 

ROR Arg, X 

7E 

3 


RTI 

Return From Interrupt 


Status Flags 

N Z C 

I D V 

From Stack 



Addressing 

Mnemonics 

Opcode 

Size 

Mode 



In Bytes 

Implied 

RTI 

40 

1 


RTS 

Return From Subroutine 


Status Flags 

N Z C 

I D V 

Addressing 

Mode 

Mnemonics 

Opcode 

Size 

In Bytes 

Implied 

RTS 

60 

1 
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SED 


SBC Subtract Memory From Accumulator, With Borrow 

Status Flags 

N Z C 

I D 

V 


• • • 


• 

Addressing 

Mnemonics 

Opcode 

Size 

Mode 



In Bytes 

Immediate 

SBC # Arg 

E9 

2 

Zero Page 

SBC Arg 

E5 

2 

Zero Page, X 

SBC Arg, X 

F5 

2 

Absolute 

SBC Arg 

ED 

3 

Absolute, X 

SBC Arg, X 

FD 

3 

Absolute, Y 

SBC Arg, Y 

F9 

3 

(Indirect, X) 

SBC (Arg, X) 

El 

2 

(Indirect), Y 

SBC (Arg), Y 

FI 

2 


SEC 

Set Carry Flag 



Status Flags 

N Z C 

• 

I D 

V 

Addressing 

Mode 

Mnemonics 

Opcode 

Size 

In Bytes 

Implied 

SEC 

38 

1 


SED 

Set Decimal Mode 


Status Flags 

N Z C 

I D 

V 

Addressing 

Mnemonics 

Opcode 

Size 

Mode 



In Bytes 

Implied 

SED 

F8 

1 
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SEI 


SEI 

Set Interrupt Disable Status 


Status Flags 


N Z C 

I D 

• 

V 

Addressing 

Mode 

Mnemonics 

Opcode 

Size 

In Bytes 

Implied 

SEI 

78 

1 


STA Store Accumulator In Memory 

Status Flags 

N Z C 

I D 

V 

Addressing 

Mode 

Mnemonics 

Opcode 

Size 

In Bytes 

Zero Page 

STAArg 

S3 

2 

Zero Page, X 

STA Arg, X 

95 

2 

Absolute 

STAArg 

8D 

3 

Absolute, X 

STA Arg, X 

9D 

3 

Absolute, Y 

STA Arg, Y 

99 

3 

(Indirect, X) 

STA (Arg, X) 

81 

2 

(Indirect), Y 

STA (Arg), Y 

91 

2 


STX Store X Register In Memory 

Status Flags 

N Z C 

I D 

V 

Addressing 

Mode 

Mnemonics 

Opcode 

Size 

In Bytes 

Zero Page 

STX Arg 

86 

2 

Zero Page, Y 

STX Arg, Y 

96 

2 

Absolute 

STX Arg 

8E 

3 
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TSX 


STY Store Y Register In Memory 

Status Flags 

N Z C 

I D 

V 

Addressing 

Mode 

Mnemonics 

Opcode 

Size 

In Bytes 

Zero Page 

STYArg 

84 

2 

Zero Page, X 

STY Arg, X 

94 

2 

Absolute 

STY Arg 

8C 

3 


TAX 

Transfer Accumulator To X Register 


Status Flags 


N Z C 

I D 

V 

Addressing 

Mode 

Mnemonics 

Opcode 

Size 

In Bytes 

Implied 

TAX 

AA 

1 


TAY 

Transfer Accumulator To Y Register 


Status Flags 


N Z C 

I D 

V 

Addressing 

Mode 

Mnemonics 

Opcode 

Size 

In Bytes 

Implied 

TAY 

A8 

1 


TSX 

Transfer Stack Pointer To X Register 


Status Flags 


N Z C 

• • 

I D V 

Addressing 

Mode 

Mnemonics 

Opcode 

Size 

In Bytes 

Implied 

TSX 

BA 

1 
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TXA 


TXA 

Transfer X Register To Accumulator 


Status Flags 


N Z C 

I D 

V 

Addressing 

Mode 

Mnemonics 

Opcode 

Size 

In Bytes 

Implied 

TXA 

8A 

1 


TXS 

Transfer X Register To Stack Pointer 


Status Flags 


N Z C 

I D 

V 

Addressing 

Mode 

Mnemonics 

Opcode 

Size 

In Bytes 

Implied 

TXS 

9A 

1 


TYA 

Transfer Y Register To Accumulator 


Status Flags 


N Z C 

I D V 

Addressing 

Mode 

Mnemonics 

Opcode 

Size 

In Bytes 

Implied 

TYA 

98 

1 
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These maps, primarily the work of Jim Butterfield, all originally appeared in COMPUTE! 
Magazine. (See the copyright page for references.) 

Map I. PET Original And Upgrade BASIC. 


ORIG 

UPGR 

DESCRIPTION 

C357 

C355 

?OUT OF MEMORY 

C359 

C357 

Send BASIC error message 

C38B 

C389 

Warm start, BASIC 

C3AC 

C3AB 

Crunch & insert line 

C430 

C439 

Fix chaining & READY 

C433 

C442 

Fix chaining 

C48D 

C495 

Crunch tokens 

C522 

C52C 

Find line in BASIC 

C553 

C55D 

Do NEW 

C56A 

C572 

Do CLR 

C59A 

C5A7 

Reset BASIC to start 

C6B5 

C6C4 

Continue BASIC execution 

C863 

C873 

Get fixed-point number from BASIC 

C9CE 

C9DE 

Send Return, LF if in screen mode 

C9D2 

C9E2 

Send Return, Linefeed 

CA27 

CA1C 

Print string 

CA2D 

CA22 

Print precomputed string 

CA49 

CA45 

Print character 

CE11 

CDF8 

Check for comma 

CE13 

CDFA 

Check for specific character 

CE1C 

CE03 

'SYNTAX ERROR' 

D079 

D069 

Bump Variable Address by 2 

D0A7 

D09A 

Float to Fixed conversion 

D278 

D26D 

Fixed to Float conversion 

D679 

D67B 

Get byte to X reg 

D68D 

D68F 

Evaluate String 

D6C4 

D6C6 

Get two parameters 

D73C 

D773 

Add (from memory) 

D8FD 

D934 

Multiply by memory location 

D9B4 

D9EE 

Multiply by ten 

DA74 

DAAE 

Unpack memory variable to Accum #1 

DB1B 

DB55 

Completion of Fixed to Float conversion 

DC9F 

DCD9 

Print fixed-point value 

DCA9 

DCE3 

Print floating-point value 
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DCAF 

DCE9 

Convert number to ASCII string 

E3EA 

E3D8 

Print a character 

na 

E775 

Output byte as 2 hex digits 

na 

E7A7 

Input 2 hex digits to A 

na 

E7B6 

Input 1 hex digit to A 

F0B6 

F0B6 

Send 'talk' to IEEE 

FOBA 

FOBA 

Send 'listen' to IEEE 

F12C 

F128 

Send Secondary Address 

E7DE 

F156 

Send canned message 

F167 

F16F 

Send character to IEEE 

F17A 

F17F 

Send 'untalk' 

F17E 

F183 

Send 'unlisten' 

F187 

F18C 

Input from IEEE 

F2C8 

F2A9 

Close logical file 

F2CD 

F2AE 

Close logical file in A 

F32A 

F301 

Check for Stop key 

F33F 

F315 

Send message if Direct mode 

na 

F322 

LOAD subroutine 

F3DB 

F3E6 

7LOAD ERROR 

F3E5 

F3EF 

Print READY & reset BASIC to start 

F3FF 

F40A 

Print SEARCHING . . . 

F411 

F41D 

Print file name 

F43F 

F447 

Get LOAD/SAVE type parameters 

F462 

F466 

Open IEEE channel for output 

F495 

F494 

Find specific tape header block 

F504 

F4FD 

Get string 

F52A 

F521 

Open logical file from input parameters 

F52D 

F524 

Open logical file 

F579 

F56E 

?FILE NOT FOUND, clear I/O 

F57B 

F570 

Send error message 

F5AE 

F5A6 

Find any tape header block 

F64D 

F63C 

Get pointers for tape LOAD 

F667 

F656 

Set tape buffer start address 

F67D 

F66C 

Set cassette buffer pointers 

F6E6 

F6F0 

Close IEEE channel 

F78B 

F770 

Set input device from logical file number 

F7DC 

F7BC 

Set output device from LFN 

F83B 

F812 

PRESSPLAY. wait 

F87F 

F855 

Read tape to buffer 

F88A 

F85E 

Read tape 

F8B9 

F886 

Write tape from buffer 

F8C1 

F883 

Write tape, leader length in A 

F913 

F8E6 

Wait for I/O complete or Stop key 

FBDC 

FB76 

Reset tape I/O pointer 

FD1B 

FC9B 

Set interrupt vector 
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FFC6 

FFC6 

Set input device 

FFC9 

FFC9 

Set output device 

FFCC 

FFCC 

Restore default I/O devices 

FFCF 

FFCF 

Input character 

FFD2 

FFD2 

Output character 

FFE4 

FFE4 

Get character 


Map 2. Upgrade PET/CBM Map. 


0000-0002 

0-2 

USR Jump instruction 

0003 

3 

Search character 

0004 

4 

Scan-between-quotes flag 

0005 

5 

BASIC input buffer pointer; #subscripts 

0006 

6 

Default DIM flag 

0007 

7 

Type: FF = string, 00=numeric 

0008 

8 

Type: 80=integer, 00 = floating point 

0009 

9 

DATA scan flag; LIST quote flag; 
memory flag 

000A 

10 

Subscript flag; FNx flag 

000B 

11 

0=input; 64=get; 152=read 

oooc 

12 

ATN sign flag; comparison evaluation flag 

000D 

13 

input flag; suppress output if negative 

000E 

14 

current I/O device for prompt-suppress 

0011-0012 

17-18 

BASIC integer address (for SYS, GOTO, etc.; 

0013 

19 

Temporary string descriptor stack pointer 

0014-0015 

20-21 

Last temporary string vector 

0016-001E 

22-30 

Stack of descriptors for temporary strings 

001F-0020 

31-32 

Pointer for number transfer 

0021-0022 

33-34 

Misc. number pointer 

0023-0027 

35-39 

Product staging area for multiplication 

0028-0029 

40-41 

Pointer: Start-of-BASIC memory 

002A-002B 

42-43 

Pointer: End-of-BASIC, Start-of-Variables 

002C-002D 

44-45 

Pointer: End-of-Variables, Start-of-Arrays 

002E-002F 

46-47 

Pointer: End-of-Arrays 

0030-0031 

48-49 

Pointer: Bottom-of-strings (moving down) 

0032-0033 

50-51 

Utility string pointer 

0034-0035 

52-53 

Pointer: Limit of BASIC Memory 

0036-0037 

54-55 

Current BASIC line number 

0038-0039 

56-57 

Previous BASIC line number 

003A-003B 

58-59 

Pointer to BASIC statement (for CONT) 

003C-003D 

60-61 

Line number, current DATA line 

003E-003F 

62-63 

Pointer to current DATA item 

0040-0041 

64-65 

Input vector 
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0042-0043 

66-67 

0044-0045 

68-69 

0046-0047 

70-71 

0048 

72 

004A 

74 

004B-004C 

75-76 

004D-0050 

77-80 

0051-0053 

81-83 

0054-0058 

84-88 

0059-005D 

89-93 

005E-0063 

94-99 

0064 

100 

0065 

101 

0066-006B 

102-107 

006C 

108 

006D 

109 

006E-006F 

110-111 

0070-0087 

112-135 

0088-008C 

136-140 

008D-008F 

141-143 

0090-0091 

144-145 

0092-0093 

146-147 

0094-0095 

148-149 

0096 

150 

0097 

151 

0098 

152 

0099-009A 

153-154 

009B 

155 

009C 

156 

009D 

157 

009E 

158 

009F 

159 

00A0 

160 

00A1 

161 

00A3-00A4 

163-164 

00A5 

165 

00A6 

166 

00A7 

167 

00A8 

168 

00A9 

169 

00 AA 

170 

00AB 

171 

00AC 

172 

00AD 

173 

00 AE 

174 


Current variable name 
Current variable address 
Variable pointer for FOR/NEXT 
Y save register; new-operator save 
Comparison symbol accumulator 
Misc. numeric work area 
Work area; garbage yardstick 
Jump vector for functions 
Misc. numeric storage area 
Misc. numeric storage area 
Accumulator#! :E,M,M,M,M,S 
Series evaluation constant pointer 
Accumulator hi-order propagation word 
Accumulator #2 

Sign comparison, primary vs. secondary 
low-order rounding byte for Acc #1 
Cassette buffer length/Series pointer 
Subrtn: Get BASIC Char; 77,78 = pointer 
RND storage and work area 
Jiffy clock for TI and TI$ 

Hardware interrupt vector 
Break interrupt vector 
NMI interrupt vector 
Status word ST 

Which key depressed: 255 = no key 
Shift key: 1 if depressed 
Correction clock 

Keyswitch PIA: STOP and RVS flags 
Timing constant buffer 
Load=0, Verify = 1 
#characters in keyboard buffer 
Screen reverse flag 
IEEE-488 mode 
End-of-line-for-input pointer 
Cursor log (row, column) 

PBD image for tape I/O 
Key image 

0 = flashing cursor, else no cursor 
Countdown for cursor timing 
Character under cursor 
Cursor blink flag 
EOT bit received 

Input from screen/input from keyboard 

X save flag 

How many open files 
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00 AF 

175 

Input device, normally 0 

00B0 

176 

Output CMD device, normally 3 

00B1 

177 

Tape character parity 

00B2 

178 

Byte received flag 

00B4 

180 

Tape buffer character 

00B5 

181 

Pointer in file name transfer 

00B7 

183 

Serial bit count 

00B9 

185 

Cycle counter 

00BA 

186 

Countdown for tape write 

00BB 

187 

Tape buffer #1 count 

00BC 

188 

Tape buffer #2 count 

00BD 

189 

Write leader count; Read pass 1/pass 2 

00BE 

190 

Write new byte; Read error flag 

00BF 

191 

Write start bit; Read bit seq error 

ooco 

192 

Pass 1 error log pointer 

00C1 

193 

Pass 2 error correction pointer 

00C2 

194 

0 = Scan; 1-15 = Count; $40 = Load; $80 = 

00C3 

195 

Checksum 

00C4-00C5 

196-197 

Pointer to screen line 

00C6 

198 

Position of cursor on above line 


00C7-00C8 199-200 Utility pointer: tape buffer, scrolling 

00C9-00CA 201-202 Tape end address/end of current program 

00CB-00CC 203-204 Tape timing constants 

00CD 205 00 = direct cursor, else programmed cursor 

00CE 206 Timer 1 enabled for tape read; 00 = disabled 

00CF 207 EOT signal received from tape 

00D0 208 Read character error 

00D1 209 # characters in file name 

00D2 210 Current logical file number 

00D3 211 Current secondary addrs, or R/W command 

00D4 212 Current device number 

00D5 213 Line length (40 or 80) for screen 

00D6-00D7 214-215 Start of tape buffer, address 

00D8 216 Line where cursor lives 

00D9 217 Last key input; buffer checksum; bit buffer 

00DA-00DB 218-219 File name pointer 

00DC 220 Number of keyboard INSERTS outstanding 

00DD 221 Write shift word/Receive input character 

00DE 222 # blocks remaining to write/read 

00DF 223 Serial word buffer 

00E0-00F8 224-248 Screen line table: hi order address & line wrap 

00F9 249 Cassette #1 status switch 

00FA 250 Cassette #2 status switch 

00FB-00FC 251-252 Tape start address 

0100-010A 256-266 Binary to ASCII conversion area 
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0100-013E 256-318 
0100-01FF 256-511 
0200-0250 512-592 
0251-025A 593-602 
025B-0264 603-612 
0265-026E 613-622 
026F-0278 623-632 
027A-0339 634-825 
033A-03F9 826-1017 
03FA-03FB 1018-1019 
0400-7FFF 1024-32767 
8000-8FFF 32768-36863 
9000-BFFF 36864-49151 
C000-E0F8 49152-57592 
E0F9-E7FF 57593-59391 
E810-E813 59408-59411 
E820-E823 59424-59427 
E840-E84F 59456-59471 
F000-FFFF 61440-65535 


Tape read error log for correction 

Processor stack area 

BASIC input buffer 

Logical file number table 

Device number table 

Secondary address, or R/W cmd, table 

Keyboard input buffer 

Tape #1 buffer 

Tape #2 buffer 

Vector for Machine Language Monitor 
Available RAM including expansion 
Video RAM 

Available ROM expansion area 

Microsoft BASIC interpreter 

Keyboard, Screen, Interrupt programs 

PIA1-Keyboard I/O 

PIA2 - IEEE-488 I/O 

VIA - I/O and Timers 

Reset, tape, diagnostic monitor 


Map 3. PET/CBM 4.0 BASIC. Zero Page. 


Hex 

0000-0002 
0003 
0004 
0005 
0006 
0007 
0008 
0009 
000 A 
000B 
000C 

000D-000F 

0010 

0011-0012 
0013-0015 
0016-001E 
001F-0022 
0023-0027 
0028-0029 
002A-002B 
002C-002D 
002E-002F 
0030-0031 
0032-0033 
0034-0035 
0036-0037 
0038-0039 
003A-003B 


Decimal Description 

0-2 USR jump 

3 Search character 

4 Scan-between-quotes flag 

5 Input buffer pointer; # of subscripts 

6 Default DIM flag 

7 Type: FF=string, 00=numeric 

8 Type: 80=integer, 00=floating point 

9 Flag: DATA scan; LIST quote; memory 

10 Subscript flag; FNX flag 

11 0=INPUT; $40=GET; $98=READ 

12 ATN sign/Comparison Evaluation flag 

13-15 Disk status DS$ descriptor 

16 Current I/O device for prompt-suppress 

17-18 Integer value (for SYS, GOTO etc) 

19-21 Pointers for descriptor stack 

22-30 Descriptor stack(temp strings) 

31-34 Utility pointer area 

35-39 Product area for multiplication 

40-41 Pointer: Start-of-Basic 

42-43 Pointer: Start-of-Variables 

44-45 Pointer: Start-of-Arrays 

46-47 Pointer: End-of-Arrays 

48-49 Pointer: String-storageCmoving down) 

50-51 Utility string pointer 

52-53 Pointer: Limit-of-memory 

54-55 Current Basic line number 

56-57 Previous Basic line number 

58-59 Pointer: Basic statement for C0NT 
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003C-003D 

003E-003F 

0040-0041 

0042-0043 

0044-0045 

0046-0047 

0048-0049 

004A 

004B-0050 

0051-0053 

0054-005D 

005E 

005F-0062 

0063 

0064 

0065 

0066-006B 

006C 

006D 

006E-006F 

0070-0087 

0077-0078 

0088-008C 

008D-008F 

0090-0091 

0092-0093 

0094-0095 

0096 

0097 

0098 

0099-009A 

009B 

009C 

009D 

009E 

009F 

00A0 

00 A1 

OOA3-OOA4 

00A5 

OOA6 

00A7 

00A8 

00A9 

OOAA 

OOAB 

OOAC 

OOAD 

00 AE 

00 AF 

OOBO 

OOB1 

00B2 

00B3 

00B4 

00B5 

00B7 

00B9 


60-61 Current DATA line number 

62-63 Current DATA address 

64-65 Input vector 

66-67 Current variable name 

68-69 Current variable address 

70-71 Variable pointer for FOR/NEXT 

72-73 Y-save; op-save; Basic pointer save 

74 Comparison symbol accumulator 

75-80 Misc work area, pointers, etc 

81-83 Jump vector for functions 

84-93 Misc numeric work area 

94 Accum#1: Exponent 

95-98 Accumffl: Mantissa 

99 Accum#1: Sign 

100 Series evaluation constant pointer 

101 Accum#1 hi-order (overflow) 

102-107 Accum#2: Exponent, etc. 

108 Sign comparison, Acc#1 vs #2 

106 Accum/M lo-order (rounding) 

110-111 Cassette buff len/Series pointer 

112-135 CHRGET subroutine; get Basic char 

119-120 Basic pointer (within subrtn) 

136-140 Random number seed. 

141-143 Jiffy clock for TI and TI$ 

144-145 Hardware interrupt vector 

146-147 BRK interrupt vector 

148-149 NMI interrupt vector 

150 Status word ST 

151 Which key down; 255=no key 

152 Shift key: 1 if depressed 

153-154 Correction clock 

155 Keyswitch PIA: STOP and RVS flags 

156 Timing constant for tape 

157 Load=0, Verify=1 

158 Number of characters in keybd buffer 

159 Screen reverse flag 

160 IEEE output; 255=character pending 

161 End-of-line-for-input pointer 

163-164 Cursor log (row, column) 

165 IEEE output buffer 

166 Key image 

167 0=flash cursor 

168 Cursor timing countdown 

169 Character under cursor 

170 Cursor in blink phase 

171 EOT received from tape 

172 Input from screen/from keyboard 

173 X save 

174 How many open files 

175 Input device, normally 0 

176 Output CMD device, normally 3 

177 Tape character parity 

178 Byte received flag 

179 Logical Address temporary save 

180 Tape buffer character; MLM command 

181 File name pointer; MLM flag, counter 

183 Serial bit count 

185 Cycle counter 
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OOBA 

00BB-00BC 

OOBD 

OOBE 

OOBF 

OOCO-OOC1 

00C2 

00C3 

OOC4-OOC5 

00C6 

00C7-00C8 

OOC9-OOCA 

OOCB-OOCC 

OOCD 

OOCE 

OOCF 

OODO 

OOD1 

00D2 

OOD3 

00D4 

00D5 

00D6-00D7 

00D8 

00D9 

OODA-OODB 

OODC 

OODD 

OODE 

OODF 

OOEO-OOF8 

OOEO-OOE1 

00E2 

00E3 

00E4 

OOE5 

00E6 

00E7 

00E8 

00E9-00EA 

OOEB-OOEC 

OOF9-OOFA 

OOFB-OOFC 

OOFD-OOFE 

01 00-01OA 

0100-013E 

0100-01FF 

0200-0250 

0251-025A 

025B-0264 

0265-026E 

026F-0278 

027A-0339 

033A-03F9 

033A 

033B 

033C 

033D 


186 

187-188 


194 

195 

196-197 

198 

199-200 

201-202 

203-204 

205 

206 
207 


230 

231 

232 

233-234 

235-236 

249-250 

251-252 

253-254 

256-266 

256-318 

256-511 

512-592 

593-602 

603-612 

613-622 

623-632 

634-825 

826-1017 

826 

827 


Tape writer countdown 

Tape buffer pointers, #1 and #2 

Write leader count; read passl/2 

Write new byte; read error flag 

Write start bit; read bit seq error 

Error log pointers, passl/2 

0=Scan/1-15=Count/$40=Load/$80=End 

Write leader length; read checksum 

Pointer to screen line 

Position of cursor on above line 

Utility pointer: tape, scroll 

Tape end addrs/End of current program 

Tape timing constants 

0=direct cursor, else programmed 

Tape read timer 1 enabled 

EOT received from tape 

Read character error 

# characters in file name 

Current file logical address 

Current file secondary addrs 

Current file device number 


Right-hand window or line margin 
Pointer: Start of tape buffer 
Line where cursor lives 
Last key/checksum/misc. 

File name pointer 
Number of INSERTS outstanding 
Write shift word/read character in 
Tape blocks remaining to write/read 
Serial word buffer 
(40-column) Screen line wrap table 
(80-column) Top, bottom of window 
(80-column) Left window margin 
(80-column) Limit of keybd buffer 
(80-column) Key repeat flag 
(80-column) Repeat countdown 
(80-column) New key marker 
(80-column) Chime time 
(80-column) HOME count 
(80-column) Input vector 
(80-column) Output vector 
Cassette status, #1 and #2 
MLM pointer/Tape start address 
MLM, DOS pointer, misc. 

STR$ work area, MLM work 
Tape read error log 
Processor stack 
MLM work area; Input buffer 
File logical address table 
File device number table 
File secondary adds table 
Keyboard input buffer 
Tape#1 input buffer 
Tape#2 input buffer 
DOS character pointer 
DOS drive 1 flag 
DOS drive 2 flag 
DOS length/write flag 
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033E 

033F-0340 

0341 

0342-0352 

0353-0380 

03EE-03F7 

03FA-03FB 

03FC 

0400-7FFF 

8000-83FF 

8000-87FF 

9000-AFFF 

BOOO-DFFF 

E000-E7FF 

E810-E813 

E820-E823 

E840-E84F 

E880-E881 

FOOO-FFFF 


830 

831-832 

833 

834-850 

851-896 

1006-1015 

1018-1019 

1020 

1024-32767 
32768-33791 
32768-34815 
36864-45055 
45056-57343 
57344-59391 
59408-59411 
59424-59427 
59456-59471 
59520-59521 
61440-65535 


DOS syntax flags 
DOS disk ID 

DOS command string count 

DOS file name buffer 

DOS command string buffer 

(80-column) Tab stop table 

Monitor extension vector 

IEEE timeout defeat 

Available RAM including expansion 

(40-column) Video RAM 

(80-column) Video RAM 

Available ROM expansion area 

Basic, DOS, Machine Lang Monitor 

Screen, Keyboard, Interrupt programs 

PIA 1 - Keyboard 1/0 

PIA 2 - IEEE-488 1/0 

VIA - I/O and timers 

(80-column) CRT Controller 

Reset, I/O handlers, Tape routines 


Map 4. PET/CBM 4.0 BASIC ROM Routines. 


B0OO-BO65 
B066-B093 
B094-BOB1 
B0B2-B20C 
B20D-B321 
B322-B34F 
B350-B392 
B393-B39F 
B3AO-B3CC 
B3 CD 

B3FF-B41E 
B41F-B4B5 
B4B6-B4E1 
B4E2-B4FA 
B4FB-B5A2 
B5A3-B5D1 
B5D2 

B5EC-B621 
B622-B62F 
B630-B6DD 
B6DE-B7 84 
B785-B7B6 
B7B7-B7C5 
B7C6-B7ED 
B7EE-B807 
B808-B812 
B813-B82F 
B830-B85C 
B85D 


Description 

Action addresses for primary keywords 

Action addresses for functions 

Hierarchy and action addresses for operators 

Table of Basic keywords 

Basic messages, mostly error messages 

Search the stack for FOR or GOSUB activity 

Open up space in memory 

Test: stack too deep? 

Check available memory 

Send canned error message, then: 

Warm start; wait for Basic command 
Handle new Basic line input 
Rebuild chaining of Basic lines 
Receive line from keyboard 
Crunch keywords into Basic tokens 
Search Basic for given line number 
Perform NEW, and; 

Perform CLR 

Reset Basic execution to start 
Perform LIST 
Perform FOR 

Execute Basic statement 
Perform RESTORE 
Perform STOP or END 
Perform CONT 
Perform RUN 
Perform GOSUB 
Perform GOTO 
Perform RETURN, then: 
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B883-B890 

B891 

B894-B8B2 

B8B3 

B8C6-B8D5 

B8D6-B8F5 

B8F6-B92F 

B930-BA87 

BA88-BA8D 

BA8E-BAA1 

BAA2-BB1C 

BB1D-BB39 

BB3A-BB4B 

BB4C-BB79 

BB7A-BBA3 

BBA4-BBBD 

BBBE-BBF4 

BBF5-BC01 

BC02-BCF6 

BCF7-BD18 

BD19-BD71 

BD72-BD97 

BD98 

BEE9 

BEEF 

BFOO-BFOB 
BF8C-C046 
C047-C085 
C086-C0B5 
C0B6-C1ID 
C11E-C12A 
C12B-C1BF 
C1C0-C2C7 
C2C8-C2D8 
C2D9-C2DC 
C2DD-C2FB 
C2FC-C4A7 
C4A8 

C4BC-C4C8 

C4C9-C4CE 

C4CF-C4DB 

C4DC-C509 

C50A-C51C 

C51D-C58D 

C58E-C59D 

C59E-C5AF 

C5BO-C61C 

C61D-C669 

C66A-C74E 

C74F-C78B 

C78C-C7B4 

C7B5-C810 


Perform DATA: skip statement 
Scan for next Basic statement 
Scan for next Basic line 
Perform IF, and perhaps: 

Perform REM: skip line 
Perform ON 

Accept fixed-point number 
Perform LET 
Perform PRINT# 

Perform CMD 

Perform PRINT 

Print string from memory 

Print single format character 

Handle bad input data 

Perform GET 

Perform INPUT# 

Perform INPUT 

Prompt and receive input 

Perform READ 

Canned Input error messages 
Perform NEXT 
Check type mismatch 
Evaluate expression 

Evaluate expression within parentheses 

Check parenthesis, comma 

Syntax error exit 

Variable name setup 

Set up function references 

Perform OR, AND 

Perform comparisons 

Perform DIM 

Search for variable 

Create new variable 

Setup array pointer 

32768 in floating binary 

Evaluate integer expression 

Find or make array 

Perform FRE, and: 

Convert fixed-to-floating 

Perform POS 

Check not Direct 

Perform DEF 

Check FNx syntax 

Evaluate FNx 

Perform STR$ 

Do string vector 

Scan, set up string 

Allocate space for string 

Garbage collection 

Concatenate 

Store string 

Discard unwanted string 
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C811-C821 
C822-C835 
C836-C861 
C862-C86C 
C86D-C896 
C897-C8B1 
C8B2-C8B7 
C8B8-C8C0 
C8C1-C8D0 
C8D1-C8E2 
C8E3-C920 
C921-C92C 
C92D-C942 
C943-C959 
C95A-C962 
C963-C97E 
C97F-C985 
C986 

C998-CA7C 
CA7D-CAB3 
CAB4-CAB8 
CAB9-CAF1 
CAF2-CB1F 
CB20 

CB5E-CBC1 

CBC2-CBEC 

CBED-CC09 

CC0A-CC17 

CC18-CC2E 

CC2F-CC33 

CC34 

CC3D 

CC45-CCD7 
CCD8-CCFC 
CCFD-CD31 
CD32-CD41 
CD42-CD50 
CD51-CD60 
CD61-CD6E 
CD6F-CD8D 
CD8E-CD90 
CD91-CDD0 
CDD1-CE01 
CE02-CE28 
CE29-CEB3 
CEB4-CEE8 
CEE9-CEF8 
CF7 8 

CF7F-CF92 

CF93-D0C6 

D0C7-D107 

D108 


Clean descriptor stack 
Perform CHR$ 

Perform LEFT$ 

Perform RIGHT$ 

Perform MID$ 

Pull string data 
Perform LEN 

Switch string to numeric 
Perform ASC 
Get byte parameter 
Perform VAL 

Get two parameters for POKE or WAIT 

Convert floating-to-fixed 

Perform PEEK 

Perform POKE 

Perform WAIT 

Add 0.5 

Perform subtraction 
Perform addition 
Complement accum#1 
Overflow exit 
Multiply-a-byte 
Constants 
Perform LOG 

Perform multiplication 

Unpack memory into accum#2 

Test & adjust accumulators 

Handle overflow and underflow 

Multiply by 10 

10 in floating binary 

Divide by 10 

Perform divide-by 

Perform divide-into 

Unpack memory into accum/M 

Pack accum#1 into memory 

Move accum//2 to #1 

Move accum#1 to it 2 

Round accum#1 

Get accum//1 sign 

Perform SGN 

Perform ABS 

Compare accum#1 to memory 
Floating-to-fixed 
Perform INT 

Convert string to floating-point 
Get new ASCII digit 
Constants 
Print IN, then: 

Print Basic line it 

Convert floating-point to ASCII 

Constants 

Perform SQR 
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D112 

D14B-D155 

D156-D183 

D184-D1D6 

D1D7-D220 

D221-D228 

D229-D281 

D282 

D289-D2D1 

D2D2-D2FD 

D2FE-D32B 

D32C-D35B 

D35C-D398 

D399-D3B5 

D3B6-D471 

D472-D716 

D717-D7AB 

D7AC-D802 

D803-D837 

D838-D872 

D873-D919 

D91A-D92E 

D92F-D941 

D942-D976 

D977-D990 

D991-D9D1 

D9D2-DA06 

DA07-DA30 

DA31-DA64 

DA65-DA7D 

DA7E-DAA6 

DAA7-DAC6 

DAC7-DAD3 

DAD4-DB0C 

DB0D-DB39 

DB3A-DB65 

DB66-DB98 

DB99-DB9D 

DB9E-DBD6 

DBD7-DBE0 

DBE1-DBF9 

DBFA-DC67 

DC68-DE29 

DE2C-DE48 

DE49-DE86 

DE87-DE9C 

#* Entry 

EOOO 

E0A7 

El 16 

E202 

E442 


Perform power function 

Perform negation 

Constants 

Perform EXP 

Series evaluation 

RND constants 

Perform RND 

Perform COS 

Perform SIN 

Perform TAN 

Constants 

Perform ATN 

Constants 

CHRGET sub for zero page 
Basic cold start 
Machine Language Monitor 
MLM subroutines 
Perform RECORD 
Disk parameter checks 
Dummy disk control messages 
Perform CATALOG or DIRECTORY 
Output 

Find spare secondary address 

Perform DOPEN 

Perform APPEND 

Get disk status 

Perform HEADER 

Perform DCLOSE 

Set up disk record 

Perform COLLECT 

Perform BACKUP 

Perform COPY 

Perform CONCAT 

Insert command string values 
Perform DSAVE 
Perform DLOAD 
Perform SCRATCH 
Check Direct command 
Query ARE YOU SURE? 

Print BAD DISK 

Clear DS$ and ST 

Assemble disk command string 

Parse Basic DOS command 

Get Device number 

Get file name 

Get small variable parameter 
points only for E000-E7FF ** 
Register/screen initialization 
Input from keyboard 
Input from screen 
Output character 
Main Interrupt entry 
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E455 Interrupt: clock, cursor, keyboard 

E600 Exit from Interrupt 

F000-F0D1 File messages 

F0D2 Send 'Talk' 

F0D5 Send 'Listen' 

F0D7 Send IEEE command character 

F109-F142 Send byte to IEEE 
F143-F150 Send byte and clear ATN 
F151-F16B Option: timeout or wait 
F16C-F16F DEVICE NOT PRESENT 

F170-F184 Timeout on read, clear control lines 

F185-F192 Send canned file message 

F193-F19D Send byte, clear control lines 

F19E-F1AD Send normal (deferred) IEEE char 

FIAE-F1BF Drop IEEE device 

F1C0-F204 Input byte from IEEE 

F205-F214 GET a byte 

F215-F265 INPUT a byte 

F266-F2A1 Output a byte 

F2A2 Abort files 

F2A6-F2C0 Restore default I/O devices 

F2C1-F2DC Find/setup file data 

F2DD-F334 Perform CLOSE 

F335-F342 Test STOP key 

F343-F348 Action STOP key 

F349-F350 Send message if Direct mode 

F351-F355 Test if Direct mode 

F356-F400 Program load subroutine 

F401-F448 Perform LOAD 

F449-F46C Print SEARCHING 

F46D-F47C Print LOADING or VERIFYING 

F47D-F4A4 Get Load/Save parameters 

F4A5-F4D2 Send name to IEEE 

F4D3-F4F5 Find specific tape header 

F4F6-F50C Perform VERIFY 

F50D-F55F Get Open/Close parameters 

F560-F5E4 Perform OPEN 

F5E5-F618 Find any tape header 

F619-F67A Write tape header 

F67B-F694 Get start/end addrs from header 

F695-F6AA Set buffer address 

F6AB-F6C2 Set buffer start & end addrs 

F6C3-F6CB Perform SYS 

F6CC-F6DC Set tape write start & end 

F6DD-F767 Perform SAVE 

F768-F7AE Update clock 

F7AF-F7FD Connect input device 

F7FE-F84A Connect output device 

F84B-F856 Bump tape buffer pointer 

F857-F879 Wait for PLAY 
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F87A-F88B 

Test cassette switch 


F88C-F899 

Wait for RECORD 


F89A 

Initiate tape read 


F8CB 

Initiate tape write 


F8E0-F92A 

Common tape I/O 


F92B-F934 

Test I/O complete 


F935-F944 

Test STOP key 


F945-F975 

Tape bit timing adjust 


F976-FA9B 

Read tape bits 


FA9C-FBBA 

Read tape characters 


FBBB-FBC3 

Reset tape read address 


FBC4-FBC8 

Flag error into ST 


FBC9-FBD7 

Reset counters for new byte 


FBD8-FBF3 

Write a bit to tape 


FBF4-FC85 

Tape write 


FC86-FCBF 

Write tape leader 


FCCO-FCDA 

Terminate tape; restore interrupt 


FCDB-FCEA 

Set interrupt vector 


FCEB-FCF8 

Turn off tape motor 


FCF9-FDOA 

Checksum calculation 


FDOB-FD15 

Advance load/save pointer 


FD16-FD4B 

Power-on Reset 


FD4C-FD5C 

Table of interrupt vectors 


** Jump ti 

able: ** 


FF93-FF9E 

CONCAT,DOPEN,DCLOSE,RECORD 


FF9F-FFAA 

HEADER,COLLECT,BACKUP,COPY 


FFAB-FFB6 

APPEND,DSAVE,DLOAD,CATALOG 


FFB7-FFBC 

RENAME,SCRATCH 


FFBD 

Get disk status 


FFCO 

OPEN 


FFC3 

CLOSE 


FFC6 

Set input device 


FFC9 

Set output device 


FFCC 

Restore default I/O devices 


FFCF 

INPUT a byte 


FFD2 

Output a byte 


FFD5 

LOAD 


FFD8 

SAVE 


FFDB 

VERIFY 


FFDE 

SYS 


FFE1 

Test stop key 


FFE4 

GET byte 


FFE7 

Abort all files 


FFEA 

Update clock 


FFFA-FFFF 

Hard vectors: NMI, Reset, INT 
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Map 5. VIC Zero Page And BASIC ROMs. 
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30000000000000000C 


0022-0025 34-37 Utility pointer area 

0026-002A 38-42 Product area for multiplication 

002B-002C 43-44 Pointer: Start-of-Basic 



002D-002E 45-46 Pointer: Start-of-Variables 

002F-0030 47-48 Pointer: Start-of-Arrays 

0031-0032 49-50 Pointer: End-of-Arrays 

0033-0034 51-52 Pointer: String-storage(moving down) 
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0066 102 Accum#1: Sign 

0067 103 Series evaluation constant pointer 

0068 104 Accum#1 hi-order (overflow) 

0069-006E 105-110 Accum#2: Exponent, etc. 
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009F 159 Tp Pass 2 err log corrected 

00A0-00A2 160-162 Jiffy Clock HML 
00A3 163 Serial bit count/EOI flag 

00A4 164 Cycle count 

00A5 165 Countdown,tape write/bit count 
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00C7 199 Screen reverse flag 

00C8 200 End-of-line for input pointer 

00C9-00CA 201-202 Input cursor log (row, column) 

00CB 203 Which key: 64 if no key 
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00FF-010A 255-266 Floating to ASCII work area 





FF8A-FFF5 65418-65525 Jump Table, Including: 
FFC6 - Set Input channel 
FFC9 - Set Output channel 
FFCC - Restore default I/O channels 
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c437 Error routine C 82f Perform [STOP] 

c469 Break entry c831 Perform [END] 

c474 'READY.' C 857 Perform [CONT] 

c480 Ready for Basic c871 Perform [RUN] 
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e5c3 Set vie chip defaults eble Check keyboard 

e5cf Input from keyboard ecOO Set text mode 

e64f Input from screen ec46 Keyboard vectors 

e6b8 Quote mark test ec5e Keyboard maps 

e6c5 Set up screen print ed21 Graphics/text co 
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eaaa Store on screen ef84 Clock line on 

eab2 Synch colour to char ef8d Clock line off 

eabf Interrupt (IRQ) ef96 Delay 1 ms 
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f250 Get., tape/serial/RS232 f84d Get buffer address 

f27a Output.. f854 Set buffer start, 

f290 ..to tape end pointers 

f2c7 Set input device f867 Find specific header 

f309 Set output device f88a Bump tape pointer 
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fd3f Check A-rom 
f<352 Set kernal2 
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Map 6. Commodore 64 Memory Map. 



SID (6581) 

Commodore 64 


VI V2 V3 

D400 D407D40E 
D401 D408 D40F 

- Frequency 

L 

H 


Pulse Width 

L 

D403 D40A D411 

0 0 0 0 


H 

D404 D40B D412 

Voice Type 

NSE PUL SAW TR1 


Key 

D405 D40C D413 

Attack Time 

2 ms - 8 sec | 

Decay Time 
6 ms - 24 sec 


D406 D40D D414 

Sustain Level j 

Release Time 
6 ms - 24 sec 



VI V2 V3 

54272 54279 54286 

54273 54280 54287 


54274 54281 54288 

54275 54282 54289 

54276 54283 54290 

54277 54284 54291 

54278 54285 54292 


Voices 
(Write Only) 


D415 

0 0 0 0 0 [ L 

D416 

Filter Frequency H 


„ Filter Voices 

Resonance , 

| EXT, V3 , V2 VI 

D417 

D418 

Passband Master 

V3 Hi Bd Lo ( Volume 


Filter & Volume 
(Write Only) 


193 







Appendix B 


D419 

D41A 

D41B 

D41C 


Paddle X 

Paddle Y _ 

Noise 3 (Random) 
Envelope 3 


54297 

54298 

54299 

54300 


(Read Only) 




Special voice features (TEST, RING MOD, SYNC) are omitted from the above diagram. 


CIA 2 (NMI) (6526) Commodore 64 


PRA 56576 


PRB 56577 

DDRA 56578 

DDRB 56579 

TAL 56580 
TAH 56581 


TBL 56582 
TBH 56583 


ICR 56589 


CRA 56590 


CRB 56591 


'Connected but not used by system. 
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Processor I/O Port (6510) Commodore 64 


$0000 

$0001 


IN IN Out IN Out Out Out Out 


$DC00 


$DC01 

$DC02 

$DC03 

$DC04 

$DC05 

$DC06 

$DC07 


$DC0D 

$DC0E 

$DC0F 


CIA 1 (IRQ) (6526) Commodore 64 


Paddle SEL1 I Joystick 0 

Keyboard Row Select (Inverted) 

U 

PRA 

56320 

Joystick 1 




L 





Keyboard Column Read 



$FF — All Output 

DDRA 

56322 

$00 - All Input 

DDRB 

56323 




TAL 

56324 

Timer A 



TAH 

56325 




TBL 

56326 

Timer B 



TBH 

56327 




1 Tape 1 

Timer 

Interr. 

ICR 

56333 

| Input | 

B 

A 



One Out 

Time 

Timer 

CRA 

56334 

Shot Mode 

Out 

A Start 



One Out 

Time 

Timer 

CRB 

56335 







Out 
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64 Memory Map 

Hex Decimal Description 

0000 0 Chip directional register 

0001 1 Chip I/O; memory & tape control 
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oooooooooooooooooooooo 

oooooooooooooooooooooo 
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0061 97 Accumll: Exponent 
0062-0065 98-101 Accum#l: Mantissa 
0066 102 Accum#l: Sign 

0067 103 Series evaluation constant pointer 
0068 104 Accum#1 hi-order (overflow) 
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009D 157 Direct=$80/RUN=0 output control 

009E 158 Tp Pass 1 error log/char buffer 

009F 159 Tp Pass 2 err log corrected 

00A0-00A2 160-162 Jiffy Clock HML 

00A3 163 Serial bit count/EOI flag 
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OOC3-OOC4 195-196 Kernel setup pointer 

OOC5 197 Last key pressed 

00C6 198 # chars in keybd buffer 

00C7 199 Screen reverse flag 

00C8 200 End-of-line for input pointer 
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00F3-00F4 243-244 Screen color pointer 

00F5-00F6 245-246 Keyboard pointer 

00F7-00F8 247-248 RS-232 Rev pntr 

00F9-00FA 249-250 RS-232 Tx pntr 

00FF-010A 255-266 Floating to ASCII work area 





O1OO-013E 256-318 Tape error log 

0100-01FF 256-511 Processor stack area 

0200-0258 512-600 Basic input buffer 

0259-0262 601-610 Logical file table 

0263-026C 611-620 Device # table 
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0291 657 Keyboard shift modi 

0292 658 0=scroll enable 

0293 659 RS-232 control reg 

0294 660 RS-232 command reg 




0295-0296 661-662 Bit timing 

0297 663 RS-232 status 

0298 664 # bits to send 

0299-029A 665 RS-232 speed/code 

029B 667 RS232 receive pointer 
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030A-030B 778-779 Get arithmetic element link 

030C 780 SYS A-reg save 

030D 781 SYS X-reg save 

030E 782 SYS Y-reg save 

030F 783 SYS status reg save 





0310-0312 784-785 USR function jump (B248) 
0314-0315 788-789 Hardware interrupt vector (EA31) 
0316-0317 790-791 Break interrupt vector (FE66) 
0318-0319 792-793 NMI interrupt vector (FE47) 
031A-031B 794-795 OPEN vector (F34A) 
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0380-03BE 896-958 (Sprite 14) 

03C0-03FE 960-1022 (Sprite 15) 

0400-07FF 1024-2047 Screen memory 

0800-9FFF 2048-40959 Basic RAM memory 

8000-9FFF 32768-40959 Alternate: ROM plug-in area 
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Map 7. Atari Memory 
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;PRINTER BUFFER POINTER 
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CHECKSUM (SINGLE BYTE SUM WITH CARRY) 
POINTER TO DATA BUFFER (LO BYTE) 

POINTER TO DATA BUFFER (HI BYTE) 

NEXT BYTE PAST END OF DATA BUFFER (LO BYTE) 
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LEFT MARGIN (SET TO ONE AT POWER ON) 
RIGHT MARGIN (SET TO ONE AT POWER ON) 
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PROCEED LINE IRQ VECTOR 
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Spli 
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RIGHT FILL DATA (DRAW) 








(CNTL 1). Cleared by Br 
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byte 
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FLOATING STORE REGO (X,Y) 

(FLTPTR) 
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ROUTINES ARE CALLED) 
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;SERIAL INPUT OUTPUT INITIALIZATION 









Appendix B 


For Further Reference 

Apple: What's Where In The Apple, William Luebbert, Micro Ink, 

Inc., 34 Chelmsford St., Chelmsford, MA 01824,1981. 

Atari: Mapping The Atari, Ian Chadwick, COMPUTE! Books, 

P.O. Box 5406, Greensboro, NC 27403, 1983. (This covers the 
operating system and provides lengthy cross-referenced 
explanations of Atari's memory addresses.) 

Atari: The Atari BASIC Sourcebook, Bill Wilkinson, COMPUTE! Books, 
P.O. Box 5406, Greensboro, NC 27403, 1983. (Complete 
commented source code of Atari BASIC, with explanatory text.) 
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Simple Assembler 

Notes On Assembling 

This program is written in BASIC because there is no reason not to. 
Since the program runs quickly enough and there is some 
complicated arithmetic involved, BASIC is the language of choice. 
There are assemblers in ML which make two “passes" through the 
source code and do need the extra speed. But this is a simple, “one- 
pass" assembler. The virtue of simplicity is that you can easily and 
quickly make small ML routines, test them, and debug them. An 
added bonus is that modifying the Simple Assembler is easy in 
BASIC. We'll see how you can customize it in a minute. 

The assembler accepts your opcodes and their arguments, 
translates them into the correct numeric values, and POKEs them into 
RAM memory. You have a choice between using hex or decimal 
during your ML programming on the Simple Assembler (SA). If you 
remove line 10, the SA will accept only decimal numbers as 
arguments, will print all addresses in decimal, and will display the 
object code (the numbers it is POKEing) in decimal. Leaving line 10 in 
the program will result in the SA accepting, addressing, and 
displaying only hexadecimal numbers. 

The circumflex ih lines 4010 and 5030 — the character following 
the number 16 — means “to the power of" and generally appears on 
computer keyboards as an arrow pointing up. Since this is not a 
complicated assembler, a decision had to be made concerning 
whether or not to include two of the conventions which have been 
traditional in ML programming. They were left out because it saves 
programming time to avoid them and they are unnecessary. 

The first one is the dollar sign ($). When an assembler can accept 
either hex or decimal simultaneously it must have a way to tell, if you 
type in “10", whether you mean decimal 10 or hex 10 (decimal 16). 
The convention requires that you write decimal ten as “10" and hex 
as "$10."However, this can quickly become a burden. In the SA, you 
let it know which kinds of numbers you are using by setting H in line 
ten. After that, just type in the numbers. No $ is used. The second 
convention that is not included in the SA is the use of the comma. 
Again, there is no particular reason to use commas, but it has been 
the tradition to include them for certain addressing modes. They, too, 
can become burdensome when you are programming. Also, each line 
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of your ML program is brought into the computer via the INPUT 
statement in line 240. Microsoft BASIC's INPUT statement dislikes 
seeing commas. So, it is expedient in several ways to drop the comma 
convention. There is just no reason to use them. 

One additional note. The SA does not accept the indirect jump: 
JMP ($0FFF). You could add it if you wish, but because of a bug in the 
6502, it is far safer to avoid it. 

Here is a list of the traditional conventions used in most 
assemblers compared to the simplified conventions of the SA. Notice 
that each addressing mode has its own appearance, its own 
punctuation. This is how an assembler knows which addressing 
mode you mean to use. 

Spaces are important. 


Addressing Mode 
Conventions 

Simple Assembler 

Traditional 

Immediate 

LDA #15 

LDA #$15 

Absolute 

LDA 1500 

LDA $1500 

Zero Page 

LDA 15 

LDA $15 
(sometimes 
LDA *$15) 

Accumulator 

ASL 

ASL A 

Zero Page, X 

LDA 15X 

LDA $15, X 

Zero Page, Y 

LDX 15Y 

LDX $15, Y 

Absolute, X 

LDA 1500X 

LDA $1500,X 

Absolute, Y 

LDA 1500Y 

LDA $1500, Y 

Indexed Indirect 

LDA (15X) 

LDA ($15,X) 

Indirect Indexed 

LDA (15)Y 

LDA ($15), Y 


Customizing The Simple Assembler 

An assembler is only supposed to get your typed opcodes and their 
arguments, translate them into the right numbers, and put them in 
memory for you. Nevertheless, the assembler is there for your benefit 
and it is a computer program. It can be taught to do whatever else 
would assist you in your ML programming. This is where "pseudo¬ 
ops" come in. They are not part of the 6502 ML instruction set. They 
are false opcodes. When you enter one of these, the assembler 
doesn't put it into 6502 and POKE it. It can't. It does something for 
you like figure out the hex equivalent of a decimal number or 
whatever. 

The SA has four built-in pseudo-ops and you can add others. 
Following the input of the opcode (line 240) there is a short quiz. The 
first question the computer asks itself is: "did they type the word 
'FORWARD'?" If so, it means that you are planning to branch 
forward, but you don't yet know how far. It will make a mental note 
of this and later, when you type in another pseudo-op, "RESOLVE," 
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it will go back and put in the correct address for the branch. Also, you 
can hand-POKE in any number in any address by typing the pseudo¬ 
op ''POKE''. And, when you are finished with a program, type 
"END" and the assembler will quit, reporting the starting and 
ending addresses of your program in decimal. 

A full-featured assembler can include dozens of pseudo-ops. 
Let's briefly examine several popular ones to see if there are some 
that you might want to add to the SA. Then we'll add a hex/decimal 
pseudo-op to the SA to show how it's done. 

BA — Begin Assembly. The SA asks you directly for the starting 
address (variable SA$). BA signifies the location in RAM memory 
where you want the object code to start. Example: BA $0400 

BY — Bytes. This is for the creation of data tables. The BY is 
followed by numbers or text characters which are POKEd into 
memory at the current address. You put these BYtes at the start or 
end of a program (it could result in havoc if it were in the middle of a 
program; they would likely be meaningless as instructions). Example: 
BY 46 46 48 42 12 11 or BY "THIS IS A MESSAGE" 

DE — Define a label. Labels require a two-pass assembler that 
goes through the source code first to create a table of labels which 
would look something like this: 

START 1500 

LETTER. A 65 

PRINTROUTINE 64422 

Then, the second time through your source code, the assembler 
would replace all the labels with their correct values. This is called 
"resolving" the labels. DE is usually part of the initialization process. 
A number of the example programs in this book start off with a series 
of DE pseudo-ops, telling the assembler the meaning of various 
important labels that will be used later in the source code instead of 
literal numbers. Example: START DE 1500 or LETTER.A DE 65. 

EN — The end of the source program. Stop assembling at this 
point. The SA uses END. 

MC — Move code. This interesting pseudo-op takes care of a 
problem that sometimes comes up when you want your object code 
to be ultimately used in an address that is now being used by the 
assembler itself or cannot be directly POKEd at this time with the 
object code. For instance, if your computer's RAM memory starts at 
address 2048 like the Commodore 64, and you want to put your final 
ML object code there, what do you do? If the SA was told to start 
assembly there, it would begin to nibble away at itself. It's in RAM 
starting at 2048. 
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To allow you to store object code elsewhere, but have it assembled 
appropriately for final use in 2048, you could instruct the assembler: 

MC 25000 (temporarily store it here) 

BA 2048 (but make internal JMPs, JSRs, and table references 
correct for this starting address) 

You can add your own pseudo-ops to the SA following line 240. 
Many times when you are working along in hex you will want to 
know the decimal equivalent of a number and vice versa. It's nice to 
be able to just ask for the translation right during assembling. The 
answer is printed on the screen and you continue on with your 
programming. The assembler will do nothing to the ML during all 
this; it's just giving you an answer. 

If you are working in the hex mode and want a decimal number, 
just type DECIMAL and the computer will accept a hex number from 
you and give back its decimal equivalent. Conversely, type HEX and 
give a decimal number for that translation. 

To include this pseudo-op in the SA, add the following lines: 


Program C-l. Adding The Conversion Pseudo-op. 

245 IFMN$="HEX"THENGOTO7000 

246 IFMN$="DECIMAL"THENGOTO7200 

7000 PRINT"ENTER DECIMAL NUMBER"INPUTDE:IFD 
E>255THENSZ=3:GOTO7020 
7010 SZ=1 

7020 GOSUB4000:PRINT" = $ 

"H$:GOTO230 

7200 PRINT"ENTER HEX NUMBER"INPUTH? 

7210 SX=LEN(H$):BK$="000":H$=LEFT$(BK$,4-SX)+ 
H$ 

7220 GOSUB5000:PRINT" = " 

DE:GOTO230 


The Simple Assembler has a few error messages that it will print 
when it can't make sense out of something. The primary 
responsibility for finding errors, however, is yours. You can create 
and save ML routines and then look at them with the Disassembler to 
see if they look like they should. SA takes up about 4.5K so it will not 
run on an unexpanded VIC. A 3K RAM expansion will provide 2000 
bytes for storage of your ML routines. 
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Program C-2. Simple Assembler (VIC, PET, Apple, 64 Version). 

10 H=1:REM IF H = 0 THEN ASSEMBLY IS IN DEC 
IMAL 

50 HE?="0123456789ABCDEF":SZ=1:ZO$="000" 

100 PRINT" SIMPLE ASSEMBLER CONVENTIONS 


110 

120 

122 

124 

126 

140 

150 

155 

160 

165 

170 

175 

177 

179 

180 
185 

189 

190 
195 
200 

210 

215 

220 


230 

235 

240 

241 

242 

243 

244 


DIMM?(56),TY(56) ,OP(56) 

F0RI = 1T056:READM?(I) 

ROP?=MID?(M?(I),4,1):TY(l)=VAL(ROP?) 
OP?=RIGHT?(M?(I),3 ):OP(I)=VAL(OP$) 

M$(I)=LEFT$(M$(I),3) 

NEXTI: PRINT 


PRINT"IMMEDIATE 
PRINT"ABSOLUTE 
PRINT"ZERO PAGE 
PRINT"ACCUMULATOR 
PRINT"INDIRECT X 
PRINT"INDIRECT Y 
PRINT"ZERO PAGE X 
PRINT"ZERO PAGE Y 
PRINT"ABSOLUTE X 
PRINT"ABSOLUTE Y 


LDA #15 
LDA 1500 
LDA 15 
ASL 

LDA (15X) 
LDA (15 )Y 
LDA 15X 
LDX 15 Y 
LDA 1500X 
LDA 1500Y 


PRINT:PRINT" ENTER ALL NUMBERS IN "y 

IFH=1 THENPRINT"HEX":GOTO200 
PRINT"DECIMAL" 

PRINT:PRINT"PLEASE INPUT STARTING ADDRES 
S FOR ML PROGRAM":INPUT SA$ 
IFH=1THENH?=SA?:GOSUB5000:SA=DE:GOTO220 
SA=VAL(S A?) 

TA=SA:PRINT"{CLEAR}":REM CLEAR THE SCREE 
N 

IFH=1THENDE=SA:SZ=3:GOSUB4000:PRINTH?;:G 

OTO240 

PRINTSA" "y 

INPUTMN?:PRINT"{UP}"SPC(20)y:REM GO UP O 
NE LINE AND OVER 20 SPACES 
REM ADD NEW PSEUDO-OPS HERE 
IFRIGHT?(MN$,7)="FORWARD"THENFB=SA 
IFRIGHT?(MN$,7)="RESOLVE"THENFR=SA-FB:PO 
KEFB+l,FR-2:PRINT" OK":GOTO230 
IFRIGHT?(MN?,4)="POKE"THENPRINT"ADDR,NUM 
BER(DEC)"y:INPUTADR,NUM:POKEADR,NUM 
:GOTO230 
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250 IFMN$="END"THENPRINT:PRINT" PROGRAM 

IS FROM"TA"TO"SA:END 
260 L=LEN(MN$):L$=LEFT$(MN$, 3) 

270 F0RI=1T056:IFL$=M$(l)THEN300 
280 NEXTI 
290 GOTO850 

300 REM PRIMARY OPCODE CATEGORIES 

301 TY=TY(I):OP=OP(I) 

305 IFFB=SATHENTN=0:GOTO2010 
310 IFTY=0THENGOTOI000 

320 IFTY=3THENTY=1:IFL=3THENOP=OP+8:GOTO1000 
330 R$=RIGHT$(MN$,L-4):IFH=ITHENGOSUB6000 
340 LR$=LEFT$(R$,1):LL=LEN(R$):IFLR$="#"THEN 
480 

350 IFLR$="("THEN520 
360 IFTY=8THEN600 
370 IFTY=3THENOP=OP+8:GOTO1000 
380 IFRIGHT$(R$,1)="X"ORRIGHT$(R$,1)="Y"THEN 
630 

390 IFLEFT$(L$,1)="J"THEN820 
400 TN=VAL(R$)sIFTN>255THEN430 
410 IFTY=10RTY=30RTY=40RTY=5THEN0P=0P+4 
420 GOTO2000 

430 H%=TN/256:L%=TN-256*H%:IFTY=20RTY=7THEN0 
P=OP+8:GOTO470 

440 IFTY=10RTY=30RTY=40RTY=5THEN0P=0P+12:GOT 
0470 

450 IFTY=6ORTY=9THEN470 
460 GOTO850 
470 GOTO3000 

480 TN=VAL(RIGHT$(R$,LL-1)) 

490 IFTY=lTHEN0P=0P+8:GOTO2000 
500 IFTY=4ORTY=5THENGOTO2000 
510 GOTO850 

520 IFRIGHT$(R$,2)=")Y"THEN540 
530 IFRIGHT$(R$,2)="X)"THEN570 
540 TN=VAL(MID$(R$, 2 , LL-3)) 

550 IFTY=1THEN0P=0P+16:GOTO2000 
560 GOTO850 

570 TN=VAL(MID$(R$,2,LL-3)) 

580 IFTY=1THENGOTO2000 
590 GOTO850 

600 TN=VAL(R$):TN=TN-SA-2:IFTN<-1280RTN>127T 
HENPRINT"TOO FAR ";:GOTO850 
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610 IFTN < 0THENTN=TN+2 5 6 
620 GOTO2000 

630 IFRIGHT$(R$,2)=")Y"THEN540 
640 IFRIGHT$(R$,l)="X"THEN720 
650 REM *ZERO Y 

660 TN=VAL(LEFT$(R$,LL-1)):IFTN>255THEN680 
670 IFTY=2ORTY=5THEN730 
675 IFTY=1THEN760 

680 GOSUB770:IFTY=1THENOP=OP+24:GOTO710 
690 IFTY=5THENOP=OP+28:GOTO710 
700 GOTO850 
710 GOTO3000 

720 TN=VAL(LEFT$(r$,LL-1)):IFTN>255THENGOSUB 
770:GOTO780 

7 30 IFTY=2THENOP=OP+16:G0T0760 
740 IFTY=lORTY=3ORTY=5THENOP=OP+20:G0T0760 
750 GOTO850 
760 GOTO2000 

770 H%=TN/256:L%=TN-256*H%:RETURN 

780 IFTY=2THENOP=OP+24:GOTO810 

790 IFTY=10RTY=30RTY=5THEN0P=0P+28:GOTO810 

800 GOTO850 

810 GOTO3000 

820 TN=VAL(R$) 

830 GOSUB770 
840 GOTO710 

850 PRINT"{REV} ERROR ":GOTO230 
1000 REM 1 BYTE INSTRUCTIONS 
1010 POKESA,OP:SA=SA+1:IFH=1THEN 1030 
1020 PRINTOP:GOTO230 

1030 DE = OP:GOSUB4000:PRINTH$:GOTO230 
2000 REM 2 BYTE INSTRUCTIONS 

2005 IFTN>256THENPRINT" INCORRECT ARGUMENT. ( 
#5 IN HEX IS #05)":GOTO230 
2010 POKESA,OP:POKESA+1,TN:SA=SA+2:IFH=1THEN2 
030 

2020 PRINTOP;TN:G0T0230 

2030 DE = OP:GOSUB4000:PRINTH$" "? 

2040 DE = TN:GOSUB4000:PRINTH$:GOTO230 
3000 REM 3 BYTE INSTRUCTIONS 

3010 POKESA,OP:POKESA+1,L%:POKESA+2,H%:SA=SA+ 
3:IFH=1THEN3030 
3020 PRINTOP;L%;H%:GOTO230 
3030 DE = OP:GOSUB4000:PRINTH?" "; 
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3040 DE = L%:GOSUB4000:PRINTH$" "; 

3050 DE = H%:GOSUB4000:PRINTH$:GOTO230 
4000 REM DECIMAL TO HEX (DE TO H$) 

4010 H$="":FORM=SZTO0STEP-1:N%=DE/(16*M):DE=D 
E-N%*16~M:H$=H$+MID$(HE$,N%+1,1) 

4020 NEXT:SZ=1:RETURN 

5000 REM HEX TO DECIMAL (H$ TO DE) 

5010 D=0:Q=3:F0RM=1T04:FORW=0TO15:IFMID$(H$,M 
,l)=MID$(HE$,W+l,l)THEN5030 
5020 NEXTW 

5030 D1=W*(16"(Q)):D=D+D1:Q=Q-1:NEXTM:DE=INT( 
D):RETURN 

6000 REM ACCEPT HEX OPCODE INPUT AND TRANSLAT 
E IT TO DECIMAL 

6010 IFLEFT?(R$,1)="#"THENH$="00"+RIGHT$(R$, 2 
):GOSUB5000:R$="#"+STR$(DE):RETURN 
6020 LS=LEN(R$):AZ$=LEFT$(R$,1):ZA$=MID$(R$, L 
S,1):IFAZ$ <>"("THEN6050 
6030 IFZA$="Y"THENH$="00"+MID$(R$,2,2 ) :GOSUB5 
000:R$="("+STR$(DE)+")Y":RETURN 
6040 IFZA$=")"THENH$="00"+MID$(R$,2,2):GOSUB5 
000:R$="("+STR$(DE)+"X)":RETURN 
6050 IFZA$="X"ORZA$="Y"THEN6070 
6060 H$=LEFT$(ZO$,4-LS)+R$:GOSUB5000:R$=STR$( 
DE):RETURN 

6070 IFLS=5THENH$=LEFT$(R$,4):GOTO6090 
6080 H$="00"+LEFT$(R$ / 2) 

6090 GOSUB5000:R$=STR$(DE)+ZA$:RETURN 
20000 DATAADC1097,AND1033,ASL3002,BCC8144, 
BCS8176,BEQ8240,BIT7036 , BMI8048 
20010 DATABNE8208,BPL8016,BRK0000,BVC8080,BVS8 
112,CLC0024,CLD0216,CLI0088 
20020 DATACLV0184,CMP1193,CPX4224,CPY4192,DEC2 
198,DEX0202,DEY0136,EOR1065 
20030 DATAINC2230,INX0232,INY0200,JMP6076,JSR9 
032,LDA1161,LDX5162,LDY5160 
20040 DATALSR3066,NOP0234,ORA1001,PHA0072,PHP0 
008,PLA0104,PLP0040,ROL3034 
20050 DATAROR3098,RTI0064,RTS0096,SBC1225,SEC0 
056,SED0248,SEI0120,STAl129 
20060 DATASTX2134,STY2132,TAX0170,TAY0168,TSX0 
186,TXA0138,TXS0154,TYA0152 
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Program C-3. Simple Assembler: Atari Version. 


10 HX=1:REM IF HX = 0 THEN ASSEMBLY I 
S IN DECIMAL 

20 DIM HE*<16),ZO*(3),R*<10),MN*<12) 
. ZA* ( 1) , A Z * < i ) ,L $ < 3) ,SA$(4) ,< 4 > 
, LR$ ( 1 ) 

30 OPEN #1.12,0, "E: " 

50 HE$-"01234567S9ABCDEF":SZ=1:ZO$=" 


000 ” 

100 PRINT 
<3 
B" ; 

110 DIM M*<56*3),TY(56),OP(56) 

120 FOR 1=1 TO 56:READ MN$:Mt(I*3—2, 
I*3)=MN*(1,3> 

122 TY < I )= VAL(MN$ <4.4> > :OP <I>=VAL (MN 


130 NEXT I 
140 PRINT :? 

150 PRINT " Immedi ate-C5 SPACES3LDA #1 


155 PRINT "Absolute 16 SPACES] LDA 150 
0 " 

160 PRINT "Zero page!5 SPACES!LDA 15 


1 65 
1 70 

175 

1 77 

179 

1 80 

1 85 

1 89 

190 


PRINT "AccumulatorC3 SPACES!ASL” 
PRINT "Indirect X C 4 SPACES 3- LDA ( 
1 5 X ) " 

PRINT "Indirect YC4 SPACES!LDA ( 
15) Y" 

PRINT "Zero page X 13 SPACES!LDA 
1 5X " 

PRINT "Zero page YC3 SPACESILDX 
1 5 Y " 

PRINT "Absolute X 14 SPACES!LDA 1 
500X " 

PRINT "Absolute YI4 SPACES1LDA 1 
500 Y " 

PRINT :PRINT "{4 SPACESIEnter al 
1 numbers in "; 

IF H X = 1 THEN PRINT ” irby^" 1 : 
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195 print ■■ r-f-Hfn'm r 

197 ? : ? "fiddressesiUBe 1536-1791 < $ 

0 6 0 0 — $ 0 6 F F ) " : ? :? 

200 PRINT "{2 DEL LINE!Please enter 
starting”:? "address -for ML prog 
ram";:INPUT SA$:IF SA$="" THEN ? 

"{2 *JP I";: GOTO 200 

210 IF H X = 1 THEN H4=SA$:GOSUB 5000-.S 
A= DE:GOTO 217 
215 SA=VAL(SA$) 

217 IF SA< 256 OR SA>=40960 THEN ? " 

14 UPMMot ZPAGE or ROM!":? :GOTO 

200 

220 TA=SA:PRINT "{CLEAR!”:GOTO 230 

HX =1 THEN ? " (e.g, #5 should be 

#05)":? 

230 IF H X =1 THEN DE = SA:5Z = 3:GOSUB 40 
00:PRINT H$;": ";:GOTO 240 

235 PRINT SA;": ”; 

240 TRAP 225:INPUT #1;MN4:? "CUP!";: 

POKE 85,20:IF MN$="" THEN ? " 

{DEL LINE!";:GOTO 230 

241 REM ADD NEW PSEUDO-OPS HERE 

242 IF LEN(MN$) >6 THEN IF MN$ < LEN(MN 
$>-6)="FORWARD" THEN FB=SA 

243 IF MN$="RESOLVE" THEN FR=SA-FB:P 
OKE FB+1 ,FR-2:PRINT " OK”:GOTO 
2 30 

244 IF MN$="POKE" THEN PRINT ”ADDR,N 
UMBER < DEC) ”; : INPUT ADDR,NUM:POKE 

ADDR,NUM;GOTO 230 
250 IF MN$="END" THEN 8000 
260 L-LEN(MN$):L$=MN4(1,3) 

270 FOR 1=1 TO 56:IF L$=M$(I*3-2.1*3 
) THEN 300 
280 NEXT I 
290 GOTO 850 

300 REM PRIMARY OPCODE CATEGORIES 

301 TY=TY<I):OP=OP(I) 

305 IF FB=SA THEN TN=0:GOTO 2010 
310 IF T Y = 0 THEN GOTO 1000 
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320 IF TY=3 THEN TY=1:IF L=3 THEN OP 
= 0F' + 8: GOTO 1000 

330 R$=MN$<5):IF HX=1 THEN GOSUB 600 
0 

340 LR$ = R$<1 , D :LL = LENiR«) : IF LR$="# 
” THEN 430 

350 IF LR$="<" THEN 520 
360 IF TV = 8 THEN 600 

370 IF T Y = 3 THEN OP = OF'+ 8 : GOTO 1000 

380 IF R$ ( LL ) = *' X " OR R$ (LL) =” Y " THEN 

630 

390 IF L$ ( 1, 1 )=“J” THEN 820 
400 TN=yftL(R$):IF TN>255 THEN 430 
410 IF TY=1 OR T Y = 3 OR TY = 4 OR TY = 5 

THEN OP=OP+4 
420 GOTO 2000 

430 H=INT(TN/256):L=(TN-256IH):IF TY 
=2 OR TY=7 THEN OP=OP+8:GOTO 470 
440 IF TY=1 OR T Y = 3 OR TY=4 OR TY = 5 

THEN OP = OF‘ + 1 2: GOTO 470 
450 IF TY~6 OR TY = 9 THEN 470 

460 GOTO 850 
470 GOTO 3000 
430 TN=VAL(R$(2)) 

490 IF TY=1 THEN OP=OF^8:GOTO 2000 

500 IF T Y = 4 OR T Y = 5 THEN GOTO 2000 

510 GOTO 850 

520 IF R$(LL-1 > = "> Y" THEN 54 0 
530 IF R$(LL-1)="X)" THEN 570 
540 TN=VAL(R$(2,LL-1)> 

550 IF T Y =1 THEN OP = OP+16:GOTO 2000 

560 GOTO 850 

570 T N = V A L (R$ <2,LL-1 ) ) 

580 IF TY=1 THEN GOTO 2000 

590 GOTO 850 

600 TN=VAL(R«):TN=TN-SA-2:IF TN -128 
OR T N > 12 7 THEN PRINT " EitJXj*STIT;" ; 
:G C T O 850 

610 IF TN<0 THEN TN=TN+256 

620 GOTO 2000 

630 IF R$(LL-1)=")Y” THEN 540 
640 IF R* i LL- 1 ) ="X" THEN 720 


233 



Appendix C 


650 REM KZERO Y 

660 TN=VAL(R$(1,LL-1)):IF TN;255 THE 
N 6 8 0 

670 IF TY=2 OR TY=5 THEN 730 
675 IF TY=1 THEN 760 

680 GOSUB 770:IF TY=1 THEN GP=OP+24: 
GOTO 710 

690 IF TY = 5 THEN 0P=0P+28:GOTO 710 
700 GOTO 850 

710 GOTO 3000 

720 TN=VftL<R$(l,L.L-lH:IF TN > 255 THE 
N GOSUB 770:GOTO 730 
730 IF TY=2 THEN OP=OP+16:GOTO 760 
740 IF T Y=1 OR T Y = 3 OR TY-5 THEN OP = 
OP+20:GOTO 760 
750 GOTO 850 

760 GOTO 2000 

770 H = I N T (Tpl/256> : L = TN-25 6 *H : RETURN 

780 IF TY=2 THEN 0P=0P+24:GOTO 810 
790 IF T V—1 OR TY= 3 OR TY = 5 THEN OP = 
OP+23:GOTO 8i0 
800 GOTO 850 

810 GOTO 3000 

820 TN=VALiR$) 

830 GOSUB 770 
840 GOTO 710 

850 PRINT " {BELLI 0331131" : GOTO 230 
1000 REM 1 BYTE INSTRUCTIONS 
1010 POKE SA,OP:SA=SA+1:IF HX=1 THEN 
1 0 3 0 

1020 PRINT OP:GOTO 230 

1030 DE = OP: GOSUB 4000:PR I NT H$: GOTO 
230 

2000 REM 2 BYTE INSTRUCTIONS 
2005 IF T N >256 THEN ? :? "Error —"jT 

N; 11 >256 ($100) " : GOTO 230 

2010 POKE SA,OP:POKE SA+1,TN:SA=SA+2 
: IF H X =1 THEN 2030 
2020 PRINT OF';" " ;TN:GOTO 230 

2030 DE=OP:GOSUB 4000:PRINT H$;” "; 

2040 DE=TN:GOSUB 4000:PRINT Ht:GOTO 
230 
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3000 REM 3 BYTE INSTRUCTIONS 
3010 POKE SA,OP:POKE SA+l,L:POKE SA+ 
2,H:SA=SA+3:IF HX=1 THEN 3030 
3020 PRINT OP;” ";L;" ";H:GOTO 230 

3030 DE=OP:GOSUB 4000:PRINT H$;" 

3040 DE=L:GOSUB 4000:PRINT H$;" "; 

3050 DE=H:GOSUB 4000:PRINT H$:GOTO 2 
30 

4000 REM DECIMAL TO HEX (DE TO H$) 
4010 H4="":A=INT(DE/256):IF A>0 THEN 
A H = I N T < A /16) :AL = A-AHtl6:H$ = HE$ 
(AH+l.AH+l):H$(2)=HE$(AL+1,AL+1 
) 

4020 A=DE-A*256:AH=INT(A/16):AL=A-AH 
*16:H$<LEN(H$)+1)=HE$(AH+1,AH+1 
> :H$(LEN <Hi> +1)=HE$(AL + i,AL+1) : 
SZ=1:RETURN 

5000 REM HEX TO DECIMAL <H$ TO DE) 

50 10 D = 0:Q = 3:FOR M=1 TO 4:W = ASC(H$(M 
))-49:IF W>9 THEN W=W-7 
5030 D = D*16 + W:NEXT M:DE=I NT(D) :RETUR 
N 

6000 REM ACCEPT HEX OPCODE INPUT AND 
TRANSLATE IT TO DECIMAL 
6010 IF R$(1,1)="#" THEN H$="00":H$( 
3) =R$ (2) : GOSUB 5000: R$ = ,, # n : R$ (2 
)=STR$(DE):RETURN 

6020 L S = L E N(R$):AZt=R$(l,1):ZA$=R$(L 
S):IF AZ$<>“C THEN 6050 
6030 IF ZA$="Y" THEN H$="00":H$<3)=R 
$(2,4) :GOSUB 5000:R$=" <":R$ (2) = 
STR$(DE):R$(LEN(R$)+1)=")Y":RET 
URN 

6040 IF ZA$=" ) " THEN H$="00":H$<3)=R 
$ <2,4) :GOSUB 5000:R$=" <":R$ <2> = 
STR$(DE) :R$(LEN(R$)+1)=‘*X) " : RET 
URN 

6050 IF ZA$=" X " OR Z A$= ,, Y" THEN 6070 
6060 H$=" " : IF LS< 4 THEN H$ = ZO$(l ,4-L 
S) 

6065 H$ (LEN(H$> +1 )=R$:GOSUB 5000:R$ = 
STR$(DE):RETURN 
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6070 IF LS= 5 THEN H$ = R$ ( 1,4) : GOTO 60 
90 

6080 H$="00":Ht(3)=R$(1,2) 

6090 GOSUB 5000:R$=STR$(DE):R$(LEN(R 
$)+1)=2A$:RETURN 

8000 PRINT :PRINT "*STARTS ";TA;:SZ= 
3:DE = TA:GOSUB 4000:PR INT " <$ " ; 

H$ ; " > " 

80 10 PRINT " ENDS -C 3 SPACES!- " ; SA; : DE = 
SA:SZ=3:GOSUB 4000:PRINT " ($"; 

H$ ; •' ) " : END 

20000 DATA ADC1097,AND1033,ASL3002,B 
CCS 144,BOSS176,BEQS24 0,BIT7036 
,BNI8048 

20010 DATA BNE8208,BPL3016.BRK0000, B 
VC30S0,BVS8112,CLC0024,CLD0216 
,CLI 0083 

20020 DATA CLV0134,CMPI 193,CPX4224,C 
PY4192.DEC2198,DEX0202,DEY0136 
, E O R 1 0 6 5 

20030 DATA INC2230, IN.X0232, INY0200, J 
MP6076,JSR9032,LDA1161,LDX5162 
,LDY5160 

20040 DATA LSR3066,NOP0234,ORA 1001 ,P 
H A 0 0 7 2,PHP0008,PLA0104,PLP0040 
,ROL3034 

20050 DATA ROR3093,RTI0064,RTS0096,S 
BC1225,SEC0056,SED0248,SEI0120 
,ST A 1 129 

20060 DATA STX2134,STY2132,TAX0170,T 
AY0168,TSX0186,TXA0 138,T X S 015 4 
,TYA0152 
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Note: The A means "to the power of" as in 2 A 2=4. 

Program D-l. Disassembler (VIC, PET, Apple, 64 Version). 

1 HE$="0123456789ABCDEF" 

2 L$="- 

4 J$=" -> " 

13 PRINT" DISASSEMBLER 

14 PRINT 

16 DIMM$(15,15) 

17 FORI=0TO15:FORB=0TO14:READM$(I,B):NEXTB: 

NEXT I 

25 REM START MAIN LOOP 

30 PRINT"STARTING ADDRESS (DECIMAL)";:INPUT 

SA:TA=SA 

31 PRINT"START ADDRESS HEX ";:DE=SA:ZX=3:G 

OSUB1200:PRINTH$" 

35 IFSA<0THENEND 
41 I=SA 

45 REM PRINT ADDRESS 

46 PRINTI" " ; 

50 X=PEEK(I) 

55 GOSUB5000 

56 IFL%=150RM$(H%,L%)="0"THENPRINT" ? 

X:CK=0:LN=LN+1:GOTO70 
58 PRINTM$(H%,L%); 

60 GOSUB6000:IFEQTHENEQ=0 
70 1=1+1 

72 IFLN=20THENLN=0:GOTO2000 
80 G0T045 

600 IFCK=12THEN603 

601 B=PEEK(1+1):IFB>12 7THENB=((NOTB)AND255) + 
1:B=-B 

602 BAD=I+2+B:PRINT" "BAD:1=1+1:RETUR 

N 

603 IFH%>8THEN800 

604 IFH%=2THENJ=1:GOTO850 

605 IFH%=6THENPRINT:PRINTL?:EQ=1:RETURN 
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606 IFH%=6THENRETURN 

607 PRINT 

608 RETURN 

610 IFCK=12THEN615 

611 PRINT" ("PEEK(1+1)")# Y" 

612 1=1+1:RETURN 

615 PRINT" ("PEEK(I+1)",X)" 

616 1=1+1:RETURN 

630 IFCK=12THEN635 

631 PRINT" "PEEK(I+1)",X" 

632 1=1+1:RETURN 

635 PRINT" "PEEK(1+1) 

636 1=1+1:RETURN 

640 IFCK=12THEN645 

641 PRINT" "PEEK(l+l)",X" 

642 1=1+1:RETURN 

645 PRINT" m PEEK(I+1) 

646 1=1+1:RETURN 

660 IFCK=12THEN645 

661 IFH%=90RH%=11THENPRINT" "PEEK(l+l)",Y" 

662 IFH%=7ORH%=15ORH%=5ORH%=3THEN640 

663 IFH%=13THEN631 

664 PRINT:G0T0642 
680 PRINT: RETURN 

690 IFCK=12THEN800 

691 I$ ="Y":GOT08 5 0 
720 IFCK=12THEN725 
722 I$="X":GOTO850 

725 IFH%=6THENPRINT" (IND. ";:I=I+1 

726 IFH%=2THEN850 

727 IFH%=4THENPRINTJ$; .-GOTO850 

728 IFH%=8ORH%=10ORH%=12ORH%=14THEN850 

729 GOTO610 

730 IFCK=12THEN850 

731 I$="X":GOTO850 

740 IFCK=12THEN850 

741 IFH%=11THENI$="Y":GOTO850 

742 I$="X":GOTO850 

800 PRINT" #"PEEK(1+1) 

801 1=1+1:RETURN 

850 N=PEEK(1+1)+PEEK(l+2)*256 

860 IFI§=""THEN900 

870 IFI$="X"THENPRINT" "N",X" 

880 IFI$="Y"THENPRINT" "N",Y" 
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890 1$="":1=1+2:RETURN 
900 PRINT" "N:1=1+2 
906 RETURN 

1000 DATABRK,ORA,0,0,0,ORA,ASL,0,PHP,ORA,ASL, 
0,0,ORA,ASL,BPL,ORA,0,0,0,ORA,ASL 
1010 DATA0,CLC,ORA,0,0,0,ORA,ASL,JSR,AND,0,0, 
BIT,AND,ROL,0,PLP,AND,ROL,0,BIT 
1020 DATAAND,ROL,BMI,AND,0,0,0,AND,ROL,0,SEC, 
AND,0,0,0,AND,ROL,RTI,EOR,0,0,0 
1030 DATAEOR,LSR,0,PHA,EOR,LSR,0,JMP,EOR,LSR, 
BVC,EOR,0,0,0,EOR,LSR,0,CLI,EOR,0 
1040 DATA0,0,EOR,LSR,RTS,ADC,0,0,0,ADC,ROR,0, 
PLA,ADC 

1045 DATAROR,0,JMP,ADC,ROR,BVS,ADC,0,0,0 
1050 DATAADC,ROR,0,SEI,ADC,0,0,0,ADC,ROR,0,ST 
A 

1055 DATA0,0,STY,STA,STX,0,DEY,0,TXA,0,STY,ST 
A 

1060 DATASTX,BCC,STA,0,0,STY,STA,STX,0,TYA,ST 
A,TXS,0,0,STA,0,LDY,LDA,LDX,0 
1070 DATALDY,LDA,LDX,0,TAY,LDA,TAX,0,LDY,LDA, 
LDX,BCS,LDA,0,0,LDY,LDA,LDX,0 
1080 DATACLV,LDA,TSX,0 

1090 DATALDY,LDA,LDX,CPY,CMP,0,0,CPY,CMP,DEC, 
0,INY,CMP,DEX,0,CPY,CMP,DEC 
1095 DATABNE,CMP,0,0,0,CMP,DEC,0,CLD,CMP,0,0, 
0,CMP,DEC,CPX,SBC,0,0,CPX,SBC,INC 

1098 DATA0,INX,SBC,NOP,0,CPX,SBC,INC,BEQ,SBC, 
0,0,0,SBC,INC,0,SED,SBC,0,0,0,SBC 

1099 DATAINC 

1200 REM MAKE DECIMAL INTO HEX 

1201 H$="":FORM=ZXTO0STEP-1:N%=DE/(16~M):DE=D 
E—N%*16'"'M:H$=H$+MID$ (HE$, N% + 1,1) 

1202 NEXT:RETURN 

2000 PRINT"TYPE C TO CONTINUE FROM" I 

2001 GETK$:IFK$=""THEN2001 

2002 IFK$="C"THENSA=I:TA=SA:G0T035 

2003 INPUTSA:TA=SA:G0T035 

5000 REM ANALYZE H & L OF OPCODE 
5010 H%=X/l6:L%=X—H%*16 
5020 ‘.RETURN 

6000 REM FIND ADDRESS TYPE & GOSUB 
6020 CK=H%/2:IFCK=INT(CK)THENCK=12 
6025 L%=L%+1 
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6030 ONL%GOSUB600,610,800,6050,640,640,660,60 
50,680,690,680,6050,720,730,740 
6040 CK=0 
6045 LN=LN+1 
6050 RETURN 


Program D-2. Atari Disassembler. 
lOO REM ■ >> *rf =4SI -3 * =< :■ 

105 GRAPHICS Os POSITION 11,0s? " fafsi^i 

■ : ? :? "Loading opc 

odes. . . " 

HO DIM OPCODES (256* lO) , LN (255) , NB (25 
5),T$(10),DS(5) 

120 FDR 1=0 TO 255 
125 READ T$,NB 
130 LN(I)=LEN(T$) 

140 OPCODES(1*10+1,1 * lO + LN(I) >=T$ 

150 NB(I)=NB 
160 NEXT I 

170 GRAPHICS O: POSITION 11,0s? " ■ 


180 ? :? 

190 TRAP 190:? "tUPICDEL LINE}Startin 

g Address (Decimal):INPUT ADDR: 
TRAP 40000 

200 IF A D D R < O OR ADDR>65535 THEN 190 
210 OP=PEEK(ADDR):NB=NB(OP) 

220 T S = OPCODES(OP*10 + 1 ,OP*1O + LN(OP) ) 
230 PRINT ADDR;sPOKE 85,10:PRINT OP;: 
POKE 85,15 

240 ON NB + 2 GOTO 242,244,250,260,270 

242 NB = 2:T = P E E K(ADDR+1) : IF T>128 THEN 

T = T —256 

243 PRINT T; s POKE 85,20:PRINT T$ ; " 

;ADDR+2+T:GOTO 300 

246 PRINT T$;" ” ;ADDR + 2 + T:GOTO 300 

250 POKE 85,20:PRINT TS:GOTO 300 
260 PRINT PEEK(ADDR+1);:POKE 85,20:DS 
=STR$(PEEK(ADDR+1)):GOSUB 400:GOT 
O 300 
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270 PRINT PEEK(ADDR+-1);:POKE 85,15:PR 
I NT PEEK (ADDR+-2) POKE 85,20 
280 D$ = STR$ < (PEEK(ADDR+1 ) +256*PEEK (AD 
DR+2))):GOSUB 400 

300 ADDR = ADDR + NB: IF ADDR< O THEN ADDR = 
65536-T 

310 IF ADDR >65535 THEN ADDR = T 
320 IF PEEK(53279)=7 THEN 210 
330 GOTO 190 

400 ? T$(1,4+(LN(OP)>4));D$;T$(4+2*(L 
N(OP)>5))sRETURN 

500 DATA BRK,1,ORA (X),2,?,O,7,0,?,O, 
ORA ,2,ASL ,2,7,O,PHP,1,ORA # , 

510 DATA ASL A,1,7,O,7,O,ORA ,3,ASL 
,3,7,0,BPL,-1,ORA ()Y,2,7,0,7,0 
520 DATA 7,0,ORA X,2,ASL X,2,7,0,CL 
C,1,ORA Y,3,7,O,7,O,7,O,ORA X,3 
530 DATA ASL ,2,7,0,JSR ,3,AND (X),2 
,7,0,7,0,BIT ,2,AND ,2,ROL ,2,7,0 
540 DATA PLP,1,AND # ,2,ROL A,l,? s O,B 
IT ,3,AND ,3,ROL ,3,7,O,BMI,-1,AN 
D ( ) Y j 2 J 

550 DATA 7,O,7,O,7,O,AND X,2,R0L X, 
2,7,0,SEC, 1,AND 'y,3,CL I, 1,7,0 
560 DATA 7,0,AND X,3,R0L X,3,7,0,RT 

1,1,EOR (X),2,7,O,7,O,7,O,EOR ,2 
570 DATA LSR ,2,7,O,PHA, 1 ,EOR # , 2,L 

SR ,3,7,0,JMP ,3,EOR ,3,LSR , 
3,7,0 

580 DATA BVC,— 1,EOR ()Y,2,7,0,7,0,7,0 
,EOR X,2,LSR X,2,7,O,CLI,1,EOR 
Y, 2 

590 DATA 7,O,7,O,7,0,EOR X,3,LSR X, 
3,7,O,RTS,1,ADC (X),2,7,0,7,0 
600 DATA 7,0,ADC ,2,ROR ,2,7,0,PLA, 

1,ADC # ,2,ROR A,1,7,0,JMP 0,108 

, ADC , 3 

610 DATA ROR , 3,7,O , BVS , - 1 , ADC ()Y,2 
,7,O,7,O,7,O,ADC X,2,ROR X,2,7, 
O 
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620 DATA SE1,1,ADC Y,3,2,0,?,0,7,0,A 
DC X , 3 , ROR X , 3, ?, O, ?, O, ST A <X), 

630 DATA ?,O,?,0,STY ,2,STA ,2,STX 
, 2, ?, O, DEY, 1 , ?, O, TXA, 1 , ?, O 

640 DATA STY ,3,STA ,3,STX ,3,?,0, 
BCC,— 1,ST A <>Y,2,7,0,7,0,STY X,2 
,ST A X,2 

650 DATA STX Y,2,?,O,TYA,1,STA Y,3, 
T X S , 1,7,O,?,O,STA X , 3,7 , O , 7 , O 

660 DATA LDY # ,2,LDA (X),2,LDX # ,2, 

7,O,L D Y ,2,LDA ,2,LDX ,2,?,b,T 
AY,1,LDA tt ,2 

670 DATA TAX,1,7,0,LDY ,3,LDA ,3,LD 
X ,3,7,O,BCS,-1,LDA OY,2,7,0,7, 
O 

680 DATA LDY X,2,LDA X,2,LDX Y,2,7 
,O,CLV,1,LDA Y,3,TSX,1,7,0,LDY 
X,3,LDA X,3 

690 DATA LD X Y,3,?,0,CPY # ,2,CMP (X 
),2,7,O,7,O,CPY ,2,CMP ,2,DEC 
,2,7,0 

700 DATA INY,1,CMP # ,2,DEX,1,7,O,CPY 
,3,CMP ,3,DEC ,3,7,O,BNE,-1,C 
MP < > Y , 2 

710 DATA 7,O,7,O,7,O,CMP X,2,DEC X, 
2,7,O,CLD,1,CMP Y,3,7,0,7,0 

720 DATA 7,0,CMP X,3,DEC X,3,7,0,CP 
X # ,2,SBC <X>,2,7,0,7,0,CPX ,2, 
SBC , 2 

730 DATA INC ,2,7,O,INX,1,SBC # ,2,N 

OP,1,7,0,CPX ,3,SBC ,3,INC ,3, 
7,0 

740 DATA BEQ,—1,SBC (Y) ,2,7,0,7,0,7,0 
,SBC X,2,INC X,2,7,O,SED,1,SBC 
Y, 3 

750 DATA 7,O,7,O,7,O,SBC X,3,INC X, 
3,7,0 
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Number Tables 


This lookup table should make it convenient when you need to 
translate hex, binary, or decimal numbers. The first column lists the 
decimal numbers between 1 and 255. The second column is the 
hexadecimal equivalent. The third column is the decimal equivalent 
of a hex most significant byte or “MSB.” The fourth column is the 
binary. 

If you need to find out the decimal equivalent of the hex number 
$FD15, look up $FD in the MSB column and you'll see that it's 64768. 
Then look up the $15 in the LSB column (it's 21 decimal) and add 
21 + 64768 to get the answer: 64789. 

Going the other way, from decimal to hex, you could translate 
64780 into hex by looking in the MSB column for the closest number 
(it must be smaller, however). In this case, the closest smaller number 
is 64768 so jot down $FD as the hex MSB. Then subtract 64768 from 
64780 to get the LSB: 12. Look up 12 in the decimal column (it is $0C 
hex) and put the $FD MSB together with the $0C LSB for your 
answer: $FD0C. 

With a little practice, you can use this chart for fairly quick 
conversions between the number systems. Most of your translations 
will only involve going from hex to decimal or vice versa with the LSB 
of hex numbers, the first 255 numbers, which require no addition or 
subtraction. Just look them up in the table. 


Table E-l. 


Decimal 

Hex 

(LSB) 

Hex 

(MSB) 

Binary 

1 

01 

256 

00000001 

2 

02 

512 

00000010 

3 

03 

768 

00000011 

4 

04 

1024 

00000100 

5 

05 

1280 

00000101 

6 

06 

1536 

00000110 

7 

07 

1792 

00000111 

8 

08 

2048 

00001000 

9 

09 

2304 

00001001 

10 

0A 

2560 

00001010 
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Decimal 



Binary 

11 

OB 

2816 

00001011 

12 

OC 

3072 

00001100 

13 

OD 

3328 

00001101 

14 

OE 

3584 

00001110 

15 

OF 

3840 

00001111 

16 

10 

4096 

00010000 

17 

11 

4352 

00010001 

18 

12 

4608 

00010010 

19 

13 

4864 

oooroon 

20 

14 

5120 

00010100 

21 

15 

5376 

00010101 

22 

16 

5632 

00010110 

23 

17 

5888 

00010111 

24 

18 

6144 

00011000 

25 

19 

6400 

00011001 

26 

1A 

6656 

00011010 

27 

IB 

6912 

00011011 

28 

1C 

7168 

00011100 

29 

ID 

7424 

00011101 

30 

IE 

7680 

00011110 

31 

IF 

7936 

00011111 

32 

20 

8192 

00100000 

33 

21 

8448 

00100001 

34 

22 

8704 

00100010 

35 

23 

8960 

00100011 

36 

24 

9216 

00100100 

37 

25 

9472 

00100101 

38 

26 

9728 

00100110 

39 

27 

9984 

00100111 

40 

28 

10240 

00101000 

41 

29 

10496 

00101001 

42 

2A 

10752 

00101010 

43 

2B 

11008 

00101011 

44 

2C 

11264 

00101100 

45 

2D 

11520 

00101101 

46 

2E 

11776 

00101110 

47 

2F 

12032 

00101111 

48 

30 

12288 

00110000 

49 

31 

12544 

00110001 


244 





Appendix E 


A 

Decimal 

Hex 

(LSB) 

Hex 

(MSB) 

Binary 


50 

32 

12800 

00110010 


51 

33 

13056 

00110011 


52 

34 

13312 

00110100 

A 

53 

35 

13568 

00110101 


54 

36 

13824 

00110110 

p* 

55 

37 

14080 

00110111 


56 

38 

14336 

00111000 


57 

39 

14592 

00111001 


58 

3A 

14848 

00111010 


59 

3B 

15104 

00111011 


60 

3C 

15360 

00111100 


61 

3D 

15616 

00111101 

_ 

62 

3E 

15872 

00111110 


63 

3F 

16128 

00111111 


64 

40 

16384 

01000000 


65 

41 

16640 

01000001 

A. 

66 

42 

16896 

01000010 


67 

43 

17152 

01000011 


68 

44 

17408 

01000100 


69 

45 

17664 

01000101 


70 

46 

17920 

01000110 


71 

47 

18176 

01000111 


72 

48 

18432 

01001000 


73 

49 

18688 

01001001 


74 

4A 

18944 

01001010 


75 

4B 

19200 

01001011 


76 

4C 

19456 

01001100 


77 

4D 

19712 

01001101 


78 

4E 

19968 

01001110 

_ 

79 

4F 

20224 

01001111 


80 

50 

20480 

01010000 

_ 

81 

51 

20736 

01010001 


82 

52 

20992 

01010010 

A 

83 

53 

21248 

01010011 


84 

54 

21504 

01010100 

* 

85 

55 

21760 

01010101 


86 

56 

22016 

01010110 

/<■* 

87 

57 

22272 

01010111 


88 

58 

22528 

01011000 
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Binary 

89 

59 

22784 

01011001 

90 

5A 

23040 

01011010 

91 

5B 

23296 

01011011 

92 

5C 

23552 

01011100 

93 

5D 

23808 

01011101 

94 

5E 

24064 

01011110 

95 

5F 

24320 

01011111 

96 

60 

24576 

01100000 

97 

61 

24832 

01100001 

98 

62 

25088 

01100010 

99 

63 

25344 

01100011 

100 

64 

25600 

01100100 

101 

65 

25856 

01100101 

102 

66 

26112 

01100110 

103 

67 

26368 

01100111 

104 

68 

26624 

01101000 

105 

69 

26880 

01101001 

106 

6A 

27136 

01101010 

107 

6B 

27392 

01101011 

108 

6C 

27648 

01101100 

109 

6D 

27904 

01101101 

110 

6E 

28160 

01101110 

111 

6F 

28416 

01101111 

112 

70 

28672 

01110000 

113 

71 

28928 

01110001 

114 

72 

29184 

01110010 

115 

73 

29440 

01110011 

116 

74 

29696 

01110100 

117 

75 

29952 

01110101 

118 

76 

30208 

01110110 

119 

77 

30464 

01110111 

120 

78 

30720 

01111000 

121 

79 

30976 

01111001 

122 

7A 

31232 

01111010 

123 

7B 

31488 

01111011 

124 

7C 

31744 

01111100 

125 

ID 

32000 

01111101 

126 

IE 

32256 

01111110 

127 

IF 

32512 

01111111 
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^Decimal 

UUJBggHI 

Binary 


128 

80 

32768 

10000000 


129 

81 

33024 

10000001 


130 

82 

33280 

10000010 


131 

83 

33536 

10000011 


132 

84 

33792 

10000100 


133 

85 

34048 

10000101 

_ 

134 

86 

34304 

10000110 


135 

87 

34560 

10000111 

A 

136 

88 

34816 

10001000 


137 

89 

35072 

10001001 


138 

8 A 

35328 

10001010 


139 

8B 

35584 

10001011 


140 

8C 

35840 

10001100 


141 

8D 

36096 

10001101 


142 

8E 

36352 

10001110 


143 

8F 

36608 

10001111 


144 

90 

36864 

10010000 


145 

91 

37120 

10010001 


146 

92 

37376 

10010010 


147 

93 

37632 

10010011 


148 

94 

37888 

10010100 


149 

95 

38144 

10010101 


150 

96 

38400 

10010110 


151 

97 

38656 

10010111 


152 

98 

38912 

10011000 

A 

153 

99 

39168 

10011001 


154 

9A 

39424 

10011010 

A 

155 

9B 

39680 

10011011 


156 

9C 

39936 

10011100 


157 

9D 

40192 

10011101 


158 

9E 

40448 

10011110 


159 

9F 

40704 

10011111 


160 

AO 

40960 

10100000 


161 

A1 

41216 

10100001 


162 

A2 

41472 

10100010 


163 

A3 

41728 

10100011 


164 

A4 

41984 

10100100 


165 

A5 

42240 

10100101 


166 

A6 

42496 

10100110 
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167 A7 42752 10100111 

168 A8 43008 10101000 

169 A9 43264 10101001 

170 AA 43520 10101010 

171 AB 43776 10101011 

172 AC 44032 10101100 

173 AD 44288 10101101 

174 AE 44544 10101110 

175 AF 44800 10101111 

176 BO 45056 10110000 

177 B1 45312 10110001 

178 B2 45568 10110010 

179 B3 45824 10110011 

180 B4 46080 10110100 

181 B5 46336 10110101 

182 B6 46592 10110110 

183 B7 46848 10110111 

184 B8 47104 10111000 

185 B9 47360 10111001 

18J5 BA 47616 10111010 

187 BB 47872 10111011 

188 BC 48128 10111100 

189 BD 48384 10111101 

190 BE 48640 10111110 

191 BF 48896 10111111 

192 CO 49152 11000000 

193 Cl 49408 11000001 

194 C2 49664 11000010 

195 C3 49920 11000011 

196 C4 50176 11000100 

197 C5 50432 11000101 

198 C6 50688 11000110 

199 C7 50944 11000111 

200 C8 51200 11001000 

201 C9 51456 11001001 

202 CA 51712 11001010 

203 CB 51968 11001011 

204 CC 52224 11001100 
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Decimal 



Binary 

205 

CD 

52480 

11001101 

206 

CE 

52736 

11001110 

207 

CF 

52992 

11001111 

208 

DO 

53248 

11010000 

209 

D1 

53504 

11010001 

210 

D2 

53760 

11010010 

211 

D3 

54016 

11010011 

212 

D4 

54272 

11010100 

213 

D5 

54528 

11010101 

214 

D6 

54784 

11010110 

215 

D7 

55040 

11010111 

216 

D8 

55296 

11011000 

217 

D9 

55552 

11011001 

218 

DA 

55808 

11011010 

219 

DB 

56064 

11011011 

220 

DC 

56320 

11011100 

221 

DD 

56576 

11011101 

222 

DE 

56832 

11011110 

223 

DF 

57088 

11011111 

224 

EO 

57344 

11100000 

225 

El 

57600 

11100001 

226 

E2 

57856 

11100010 

227 

E3 

58112 

11100011 

228 

E4 

58368 

11100100 

229 

E5 

58624 

11100101 

230 

E6 

58880 

11100110 

231 

E7 

59136 

11100111 

232 

E8 

59392 

11101000 

233 

E9 

59648 

11101001 

234 

EA 

59904 

11101010 

235 

EB 

60160 

11101011 

236 

EC 

60416 

11101100 

237 

ED 

60672 

11101101 

238 

EE 

60928 

11101110 

239 

EF 

61184 

11101111 

240 

FO 

61440 

11110000 

241 

FI 

61696 

11110001 

242 

F2 

61952 

11110010 
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Decimal 

Hex 

(LSB) 

Hex 

(MSB) 

Binary 

243 

F3 

62208 

11110011 

244 

F4 

62464 

11110100 

245 

F5 

62720 

11110101 

246 

F6 

62976 

11110110 

247 

F7 

63232 

11110111 

248 

F8 

63488 

11111000 

249 

F9 

63744 

11111001 

250 

FA 

64000 

11111010 

251 

FB 

64256 

11111011 

252 

FC 

64512 

11111100 

253 

FD 

64768 

11111101 

254 

FE 

65024 

11111110 

255 

FF 

65280 

11111111 


The following program will print copies of this number table. 
You might need to make some adjustments to the printout 
conventions of your computer's BASIC and your printer itself. This 
program is for Microsoft BASIC and will not work on the Atari. 


Program E-l. Microsoft Table Printer. 

10 OPEN4,4:REM OPEN CHANNEL TO PRINTER 
100 HE$="0123456789ABCDEF" 

110 F0RX=1T0255 
120 B= 2:C=1 

122 IFX<10THENPRINT#4," ";:GOTO130 

124 IFX<100THENPRINT#4," "y 

130 PRINT#4,X;" ";:DE=X:GOSUB240 

135 REM CREATE BINARY 

140 IFXAND1THENK?(C)="1":GOTO160 

150 K$(C)="0" 

160 C=C+1:IFBANDXTHENK$(C)="1":GOTO180 
170 K$(C)="0" 

180 B=B* 2:IFC> 8THEN200 
190 GOTO160 

200 FORI=8TOlSTEP-1:PRINT#4,K$(I);:NEXTI 
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220 PRINT#4:NEXTX 

230 END:REM TRANSFORM TO HEX 

240 H$="":FORM=1TO0STEP-1:N%=DE/(16"M):DE=DE 
-N%*16~M 

250 H$=H$+MID$(HE$,N%+1, 1) :NEXT 

260 PRINT#4,H$" ";:DE=X*256 

262 IFDE<1000THENPRINT#4," ";:GOTO270 

264 IFDE<10000THENPRINT#4," 

270 PRINT#4,DE" "y:RETURN 
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SUPERMON For PET 

The following monitor extensions are the work of several programmers and were previously 
published in COMPUTE! Magazine. (See the copyright page for references.) 

Here is the legendary Supermon — a version for Upgrade (3.0 or 
"New ROM") and 4.0 PETs, all keyboards, all memory sizes, 40 or 80 
column screens. You need not yet know how to program in machine 
language (ML) to enter this program — or to use it. In fact, exploring 
with Supermon, you will find that the mysterious world of your 
computer's own language becomes gradually understandable. You 
will find yourself learning ML. 

Many ML programmers with PET/CBM machines feel that 
Supermon is the essential tool for developing programs of short to 
medium length. All Upgrade and 4.0 machines have a "resident" 
monitor, a program within the computer's ROM which allows you to 
type SYS 1024 and see the registers, load and save and run ML 
programs, or see a memory dump (a list of numbers from the 
computer's memory cells). But to program or analyze ML easily, 
disassembler, assembler, hunt, and single-step functions are all 
practical necessities. Supermon provides these and more. 

Even if you've never assembled a single instruction and don't 
know NOP from ROL, this appendix will lead you step-by-step 
through the entry and SAVE of Supermon. 

How To Enter Supermon 

1. Type in the BASIC program (Program 1). It is the same for all 
versions. Then save it normally by typing SAVE "CONTROL". This 
program will be used later to automatically find your memory size, 
transfer Supermon to the top, and report to you the SYS address you 
use to activate it. 

2. Now the hard part: type SYS 1024 which enters you into the 
machine language monitor. You will see something like the 
following: 

Figure I. 

B* 

PC IRQ SR AC XR YR SP 

0401 E455 32 04 5E 00 EE 

Then type: M 0600 0648 and you will see something similar to this 
(the numbers will be different, but we are going to type over them 
which, after hitting RETURN on each line, will enter the new 
numbers into the computer's memory): 
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Figure 2. 

.M 0600 0648 
0600 28 58 
.: 0608 FF FC 

.: 0610 CB 85 

0618 34 85 
0620 00 93 
0628 06 F0 
0630 18 65 
0638 20 43 
0640 50 06 
.: 0648 IF D0 


FF 

FF 

00 

0 B 

06 

AD 

00 

21 

06 

03 

AD 

A9 

IF 

A9 

0C 

85 

20 

A5 

21 

A5 

35 

85 

22 

A0 

06 

06 

D0 

16 

20 

38 

11 

85 

23 

20 

38 

06 

34 

AA 

A5 

23 

65 

35 

06 

8 A 

20 

43 

06 

20 

90 

DB 

60 

EA 

EA 

A5 

02 

C6 

20 

C6 

IF 

B1 


We have divided Supermon into 21 blocks with 80 hexadecimal 
numbers per block to make typing easier. There is a final, shorter 
block with 64 numbers. Type right over the numbers on the screen so 
that line 0600 looks like it does in Program 2. Then hit RETURN and 
cursor over to the A5 on line 0608. (Set a TAB to this position if your 
keyboard has a TAB key.) Then type over the numbers in this line and 
so on. When you have finshed typing your RETURN on line 0648, 
type in: M 0650 0698 and the next block will appear for you to type 
over. Continue this way until you finish entering the new version of 
line 0CC8 at the end. (Hope that no lightning or fuses blow.) 

3. If you have Upgrade ROMs, you will need to correct the lines 
listed in Program 3 at this point. To change line 06D0, simply type M 
06D0 06D0 and it will appear so that you can type over it and 
RETURN as in step 2. 

4. Now Supermon is in your memory and you must SAVE it. 

Hit RETURN so that you are on a new line and type: 
S"SUPERMON'', 01,0600,0CCC (to SAVE to tape) or type: 

S"0:SUPERMON”,08,0600,0CCC (to SAVE to disk drive 0). 

5. Finally, you will want to use the Checksum program to see if 
you made any errors during the marathon. You probably did, but to 
make it as painless as possible, the Checksum program will flash 
through your Supermon and let you know which blocks need to be 
corrected. So, type in Program 4 (or if you have Upgrade ROMs, use 
the first three lines from Program 5). SAVE Checksum just in case. 
Then LOAD "SUPERMON” (an ordinary LOAD as with a BASIC 
program will slide it in starting at address 1536, above the end of 
Checksum). Then RUN. Incorrect blocks will be announced. When 
you know where the errors are, type SYS 1024 and then M XXXX 
XXXX for the starting and ending addresses of the bad block. Check 
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the numbers against Program 2 (or Program 3) and in all corrections. 
If, despite everything, you cannot find an error within a block, make 
sure that the corresponding number within the DATA statement of 
the Checksum program is correct. Then SAVE the good version 
"SUPERMON1" as in step 4. 

6. Your reward is near. LOAD "CONTROL" and then LOAD 
SUPERMON1. Then type RUN and hold your breath. If all goes well, 
you should see. 

Figure 3. 

SUPERM0N4! 

DISASSEMBLER BY WOZNIAK/BAUM 
SINGLE STEP 
BY JIM RUSSO 

MOST OTHER STUFF ,BY BILL SEILER 
TIDIED & WRAPPED BY JIM BUTTERFIELD 


LINK TO MONITOR — SYS 31283 

SAVE WITH MLM: 

S "SUPERMON",01,7A33,8000 
READY. 


And you should be able to use all the commands listed in the 
Supermon Summary. If some, or all, of the commands fail to 
function, check the last, short block of code to see if there are any 
errors. 

After Supermon is relocated to the top of your memory, use a 
ML SAVE to save it in its final form. Instructions are on screen after 
RUN. 

SUPERMON SUMMARY 

COMMODORE MONITOR INSTRUCTIONS: 

G GO RUN 

L LOAD FROM TAPE OR DISK 
M MEMORY DISPLAY 
R REGISTER DISPLAY 
S SAVE TO TAPE OR DISK 
X EXIT TO BASIC 
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SUPERMON ADDITIONAL INSTRUCTIONS: 

A SIMPLE ASSEMBLER 
D DISASSEMBLER 
F FILL MEMORY 
H HUNT MEMORY 
I SINGLE INSTRUCTION 
P PRINTING DISASSEMBLER 
T TRANSFER MEMORY 

SUPERMON WILL LOAD ITSELF INTO THE 
TOP OF MEMORY .. WHEREVER THAT HAPPENS 
TO BE ON YOUR MACHINE. 

YOU MAY THEN SAVE THE MACHINE CODE 
FOR FASTER LOADING IN THE FUTURE. 

BE SURE TO NOTE THE SYS COMMAND WHICH 
LINKS SUPERMON TO THE COMMODORE 
MONITOR. 


SIMPLE ASSEMBLER 
•A 2000 LDA #$12 
• A 2002 STA $8000 ,X 
.A 2005 (RETURN) 


IN THE ABOVE EXAMPLE THE USER 
STARTED ASSEMBLY AT 2000 HEX. THE 
FIRST INSTRUCTION WAS LOAD A REGISTER 
WITH IMMEDIATE 12 HEX. IN THE SECOND 
LINE THE USER DID NOT NEED TO TYPE THE 
A AND ADDRESS. THE SIMPLE ASSEMBLER 
PROMPTS WITH THE NEXT ADDRESS. TO EXIT 
THE ASSEMBLER TYPE A RETURN AFTER THE 
THE ADDRESS PROMPT. SYNTAX IS THE SAME 
AS THE DISASSEMBLER OUTPUT. 

DISASSEMBLER 


(SCREEN CLEARS) 
., 2000 A9 12 

2002 9D 

2005 AA 

2006 AA 


LDA #$12 
STA $8000 ,X 
TAX 
TAX 


(FULL PAGE OF INSTRUCTIONS) 

DISASSEMBLES 22 INSTRUCTIONS 
STARTING AT 2000 HEX. THE THREE BYTES 
FOLLOWING THE ADDRESS MAY BE MODIFIED. 
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USE THE CRSR KEYS TO MOVE TO AND MODIFY 
THE BYTES. HIT RETURN AND THE BYTES 
IN MEMORY WILL BE CHANGED. SUPERMON 
WILL THEN DISASSEMBLE THAT PAGE AGAIN. 


PRINTING DISASSEMBLER 


•P 2000,2040 
2000 A9 12 
2002 9D 00 80 
2005 AA 


LDA #$12 

STA $8000,XY. 

TAX 


203F A2 00 LDX #$00 

TO ENGAGE PRINTER, SET UP BEFOREHAND: 
OPEN 4,4:CMD4 

ON 4.0, ACCESS THE MONITOR VIA A CALL 
SYS 54386 (*NOT* A BREAK) COMMAND 


SINGLE STEP 

. I 

ALLOWS A MACHINE LANGUAGE PROGRAM 
TO BE RUN STEP BY STEP. 

CALL REGISTER DISPLAY WITH .R AND SET 
THE PC ADDRESS TO THE DESIRED FIRST 
INSTRUCTION FOR SINGLE STEPPING. 

THE .1 WILL CAUSE A SINGLE STEP TO 
EXECUTE AND WILL DISASSEMBLE THE NEXT. 
CONTROLS: 

< FOR SINGLE STEP; 

RVS FOR SLOW STEP; 

SPACE FOR FAST STEPPING; 

STOP TO RETURN TO MONITOR. 

[ON BUSINESS KEYBOARDS— 

USE 8 ,<",6 AND STOP] . 

FILL MEMORY 
.F 1000 1100 FF 

FILLS THE MEMORY FROM 1000 HEX TO 
1100 HEX WITH THE BYTE FF HEX. 


GO RUN 

.G 

GO TO THE ADDRESS IN THE PC 
REGISTER DISPLAY AND BEGIN RUN CODE. 
ALL THE REGISTERS WILL BE REPLACED 
WITH THE DISPLAYED VALUES. 

•G 1000 
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GO TO ADDRESS 1000 HEX AND BEGIN 
RUNNING CODE. 

HUNT MEMORY 
• H C000 D000 'READ 

HUNT THRU MEMORY FROM C000 HEX TO 
D000 HEX FOR THE ASCII STRING READ AND 
PRINT THE ADDRESS WHERE IT IS FOUND. A 
MAXIMUM OF 32 CHARACTERS MAY BE USED. 

.H C000 D000 20 D2 FF 

HUNT MEMORY FROM C000 HEX TO D000 
HEX FOR THE SEQUENCE OF BYTES 20 D2 FF 
AND PRINT THE ADDRESS. A MAXIMUM OF 32 
BYTES MAY BE USED. 

LOAD 

.L 

LOAD ANY PROGRAM FROM CASSETTE #1. 

.L "RAM TEST" 

LOAD FROM CASSETTE #1 THE PROGRAM 
NAMED RAM TEST. 

.L "RAM TEST",08 

LOAD FROM DISK (DEVICE 8) THE PROGRAM 
NAMED RAM TEST. 

THIS COMMAND LEAVES BASIC POINTERS 
UNCHANGED. 

MEMORY DISPLAY 
.M 0000 0080 

.: 0000 00 01 02 03 04 05 06 07 
.: 0008 08 09 0A 0B 0C 0D 0E 0F 

DISPLAY MEMORY FROM 0000 HEX TO 
0080 HEX. THE BYTES FOLLOWING THE .: 
CAN BE ALTERED BY TYPING OVER THEM 
THEN TYPING A RETURN. 

REGISTER DISPLAY 

.R 

PC IRQ SR AC XR YR SP 
.; 0000 E62E 01 02 03 04 05 

DISPLAYS THE REGISTER VALUES SAVED 
WHEN SUPERMON WAS ENTERED. THE VALUES 
MAY BE CHANGED WITH THE EDIT FOLLOWED 
BY A RETURN. 
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USE THIS INSTRUCTION TO SET UP THE 
PC VALUE BEFORE SINGLE STEPPING WITH 


SAVE 

.S "PROGRAM NAME",01,0800,0C80 

SAVE TO CASSETTE #1 MEMORY FROM 
0800 HEX UP TO BUT NOT INCLUDING 0C80 
HEX AND NAME IT PROGRAM NAME. 

.S "0:PROGRAM NAME",08,1200,1F50 

SAVE TO DISK DRIVE #0 MEMORY FROM 
1200 HEX UP TO BUT NOT INCLUDING 1F50 
HEX AND NAME IT PROGRAM NAME. 


TRANSFER MEMORY 
.T 1000 1100 5000 

TRANSFER MEMORY IN THE RANGE 1000 
HEX TO 1100 HEX AND START STORING IT AT 
ADDRESS 5000 HEX. 

EXIT TO BASIC 

.X 

RETURN TO BASIC READY MODE. 

THE STACK VALUE SAVED WHEN ENTERED WILL 
BE RESTORED. CARE SHOULD BE TAKEN THAT 
THIS VALUE IS THE SAME AS WHEN THE 
MONITOR WAS ENTERED. A CLR IN 
BASIC WILL FIX ANY STACK PROBLEMS. 


Program I. CONTROL. 

100 PRINT"{CLEAR}{02 DOWN}{REV} SUP 
ERMON!!" 

110 PRINT"{DOWN} DISSASSEMBLER ' 

{REV}D{OFF} BY WOZNIAK/BAU 
M 

120 PRINT" SINGLE STEP {REV}l 

{OFF} BY JIM RUSSO 
130 PRINT"MOST OTHER STUFF {REV},HA 
LT{OFF} BY BILL SEILER 
150 PRINT"{DOWN}TIDIED & WRAPPED BY 
JIM BUTTERFIELD" 
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170 L=PEEK(52)+PEEK(53)*256:SYS1536 
:M=PEEK(33):N=PEEK(34) 

180 POKE52,M:POKE53,N:POKE48,M:POKE 
4 9,N:N=M+N* 256 

210 PRINT"{02 DOWN}LINK TO MONITOR ~ 
— SYS";N 

220 PRINT:PRINT"SAVE WITH MLM:" 

230 PRINT".S ";CHR$(34);"SUPERMON"; 

CHR$(34) ;" ,01" ; :X=N/4096 :G 
OSUB250 

240 X=L/4096:GOSUB250:END 
250 PRINT",";:FORJ=1T04:X%=X:X=(X-X 
%)*16:IFX%>9THENX%=X%+7 


260 PRINTCHR$(X%+48);:NEXTJ:RETURN 


Progra 

m 2. SUPERMON 4.0 

0600 A9 CB 85 

IF 

A9 

0C 

85 

20 


0608 

A5 

34 

85 

21 

A5 

35 

85 

22 


0610 

A0 

00 

20 

38 

06 

D0 

16 

20 


0618 

38 

06 

F0 

11 

85 

23 

20 

38 


0620 

06 

18 

65 

34 

AA 

A5 

23 

65 


0628 

35 

20 

43 

06 

8 A 

20 

43 

06 


0630 

20 

50 

06 

90 

DB 

60 

EA 

EA 


0638 

A5 

IF 

D0 

02 

C6 

20 

C6 

IF 


0640 

B1 

IF 

60 

48 

A5 

21 

D0 

02 


0648 

C6 

22 

C6 

21 

68 

91 

21 

60 


0650 

A9 

80 

C5 

IF 

A9 

06 

E5 

20 


0658 

60 

AA 

AA 

AA 

AA 

AA 

AA 

AA 


0660 

AA 

AA 

AA 

AA 

AA 

AA 

AA 

AA 


0668 

AA 

AA 

AA 

AA 

AA 

AA 

AA 

AA 


0670 

AA 

AA 

AA 

AA 

AA 

AA 

AA 

AA 


0678 

AA 

AA 

AA 

AA 

AA 

AA 

AA 

AA 


0680 

AD 

FE 

FF 

00 

85 

34 

AD 

FF 


0688 

FF 

00 

85 

35 

AD 

FC 

FF 

00 


0690 

8D 

FA 

03 

AD 

FD 

FF 

00 

8D 


0698 

FB 

03 

00 

00 

A2 

08 

DD 

DE 


: 06A0 

FF 

00 

D0 

0 E 

86 

B4 

8 A 

0 A 
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06A8 

AA 

BD 

E9 

FF 

00 

48 

BD 

E8 

06B0 

FF 

00 

48 

60 

CA 

10 

EA 

4C 

06B8 

9 A 

FA 

00 

A2 

02 

2C 

A2 

00 

06C0 

00 

B4 

FB 

D0 

08 

B4 

FC 

D0 

06C8 

02 

E6 

DE 

D6 

FC 

D6 

FB 

60 

06D0 

20 

98 

D7 

C9 

20 

F0 

F9 

60 

06D8 

A9 

00 

00 

8D 

00 

00 

01 

20 

06E0 

79 

FA 

00 

20 

6B 

D7 

20 

57 

06E8 

D7 

90 

09 

60 

20 

98 

D7 

20 

06F0 

54 

D7 

B0 

DE 

AE 

06 

02 

9 A 

06F8 

4C 

A4 

D7 

20 

31 

D5 

CA 

D0 

0700 

FA 

60 

E6 

FD 

D0 

02 

E6 

FE 

0708 

60 

A2 

02 

B 5 

FA 

48 

BD 

0 A 

0710 

02 

95 

FA 

68 

9D 

0 A 

02 

CA 

0718 

D0 

FI 

60 

AD 

0B 

02 

AC 

0C 

0720 

02 

4C 

CE 

FA 

00 

A5 

FD 

A4 

0728 

FE 

38 

E5 

FB 

8D 

IB 

02 

98 

0730 

E5 

FC 

A8 

0D 

IB 

02 

60 

20 

0738 

81 

FA 

00 

20 

44 

D7 

20 

92 

0740 

FA 

00 

20 

AF 

FA 

00 

20 

92 

0748 

FA 

00 

20 

CA 

FA 

00 

20 

44 

0750 

D7 

90 

15 

A6 

DE 

D0 

65 

20 

0758 

Cl 

FA 

00 

90 

60 

Al 

FB 

81 

0760 

FD 

20 

A8 

FA 

00 

20 

39 

D5 

0768 

D0 

EB 

20 

Cl 

FA 

00 

18 

AD 

0770 

IB 

02 

65 

FD 

85 

FD 

98 

65 

0778 

FE 

85 

FE 

20 

AF 

FA 

00 

A6 

0780 

DE 

D0 

3D 

A1 

FB 

81 

FD 

20 

0788 

Cl 

FA 

00 

B0 

34 

20 

65 

FA 

0790 

00 

20 

68 

FA 

00 

4C 

IB 

FB 

0798 

00 

20 

31 

FA 

00 

20 

44 

D7 

07A0 

20 

92 

FA 

00 

20 

44 

D7 

20 

07A8 

98 

D7 

20 

63 

D7 

90 

14 

85 

07B0 

B5 

A6 

DE 

D0 

11 

2 0 

CA 

FA 

07B8 

00 

90 

0C 

A5 

B5 

81 

FB 

20 

07C0 

39 

D5 

D0 

EE 

4C 

9 A 

FA 

00 

07C8 

4C 

BA 

D4 

20 

81 

FA 

00 

20 

07D0 

44 

D7 

20 

92 

FA 

00 

20 

44 

07D8 

D7 

20 

98 

D7 

A2 

0 0 

00 

20 
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07E0 

07E8 

07F0 

07F8 

0800 

0808 

0810 

0818 

0820 

0828 

0830 

0838 

0840 

0848 

0850 

0858 

0860 

0868 

0870 

0878 

0880 

0888 

0890 

0898 

08A0 

08A8 

08B0 

08B8 

08C0 

08C8 

08D0 

08D8 

08E0 

08E8 

08F0 

08F8 

0900 

0908 


98 

D7 

C9 

27 

D0 

14 

20 

98 

— 

D7 

9D 

10 

02 

E8 

20 

CF 

FF 


C9 

0D 

F0 

22 

E0 

20 

D0 

FI 


F0 

1C 

8 E 

00 

00 

01 

20 

6 B 


D7 

9 0 

C6 

9D 

10 

02 

E8 

20 


CF 

FF 

C9 

0 D 

F0 

09 

20 

63 


D7 

90 

B6 

E0 

20 

D0 

EC 

86 


B4 

20 

34 

D5 

hi 

00 

00 

A0 


00 

00 

B1 

FB 

DD 

10 

02 

D0 


0C 

C8 

E8 

E4 

B4 

D0 

F3 

20 


17 

D7 

20 

31 

D5 

20 

39 

D5 


A6 

DE 

D0 

92 

20 

CA 

FA 

00 


B0 

DD 

4C 

BA 

D4 

20 

81 

FA 


00 

8 D 

0 0 

02 

A5 

FC 

8 D 

0 E 


02 

A9 

04 

A2 

00 

00 

8 D 

09 


02 

8 E 

0 A 

02 

A9 

93 

20 

D2 


FF 

A9 

16 

85 

B 5 

20 

06 

FC 

— 

00 

20 

64 

FC 

00 

85 

FB 

84 


FC 

C6 

B5 

D0 

F2 

A9 

91 

20 


D2 

FF 

4C 

BA 

D4 

A0 

2C 

20 


79 

D5 

20 

17 

D7 

20 

31 

D5 


A2 

00 

00 

Al 

FB 

20 

74 

FC 


00 

48 

20 

BB 

FC 

00 

68 

20 


D3 

FC 

00 

hi 

0 6 

E0 

03 

D0 


13 

AC 

1C 

02 

F0 

0 E 

A5 

FF 


C9 

E8 

B1 

FB 

B0 

1C 

20 

5C 


FC 

00 

88 

D0 

F2 

06 

FF 

90 

— k, 

0 E 

BD 

51 

FF 

00 

20 

45 

FD 


00 

BD 

57 

FF 

00 

F0 

03 

20 


45 

FD 

00 

CA 

D0 

D4 

60 

20 


68 

FC 

00 

AA 

E8 

D0 

01 

C8 


98 

20 

5C 

FC 

00 

8 A 

86 

B4 


20 

22 

D7 

A6 

B4 

60 

AD 

1C 


02 

38 

A4 

FC 

AA 

10 

01 

88 


65 

FB 

90 

01 

C8 

60 

A8 

4 A 


90 

0B 

4 A 

B0 

17 

C9 

22 

F0 


13 

29 

07 

09 

80 

4A 

AA 

BD 


00 

FF 

00 

B0 

04 

4 A 

4 A 

4 A 
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0910 

4 A 

29 

0F 

D0 

04 

A0 

80 

A9 

0918 

00 

00 

AA 

BD 

44 

FF 

00 

85 

0920 

FF 

29 

03 

8D 

1C 

02 

98 

29 

0928 

8F 

AA 

98 

A0 

03 

E0 

8 A 

F0 

0930 

0B 

4 A 

90 

08 

4 A 

4A 

09 

20 

0938 

88 

D0 

FA 

C8 

88 

D0 

F2 

60 

0940 

B1 

FB 

20 

5C 

FC 

0 0 

A2 

01 

0948 

20 

A1 

FA 

00 

CC 

1C 

02 

C8 

0950 

90 

F0 

A2 

03 

CC 

09 

02 

90 

0958 

F0 

60 

A8 

B9 

5E 

FF 

00 

8D 

0960 

0B 

02 

B9 

9E 

FF 

00 

8D 

0C 

0968 

02 

A9 

00 

00 

A0 

05 

0E 

0C 

0970 

02 

2E 

0B 

02 

2 A 

88 

D0 

F6 

0978 

69 

3F 

20 

D2 

FF 

CA 

D0 

EA 

0980 

4C 

31 

D5 

20 

81 

FA 

00 

20 

0988 

44 

D7 

2 0 

92 

FA 

00 

20 

44 

0990 

D7 

A9 

04 

A2 

00 

00 

8D 

09 

0998 

02 

8 E 

0 A 

02 

20 

34 

D5 

20 

09A0 

0B 

FC 

00 

20 

64 

FC 

00 

85 

09A8 

FB 

84 

FC 

20 

35 

F3 

F 0 

05 

09B0 

20 

CA 

FA 

00 

B0 

E9 

4C 

BA 

09B8 

D4 

20 

81 

FA 

00 

A9 

03 

85 

09C0 

B5 

20 

98 

D7 

20 

0 B 

D5 

D0 

09C8 

F8 

AD 

0D 

02 

85 

FB 

AD 

0 E 

09D0 

02 

85 

FC 

4C 

E7 

FB 

00 

CD 

09D8 

0A 

02 

F0 

03 

20 

D2 

FF 

60 

09E0 

A9 

03 

A2 

24 

8D 

09 

02 

8 E 

09E8 

0A 

02 

20 

34 

D5 

78 

AD 

FA 

09F0 

FF 

00 

85 

90 

AD 

FB 

FF 

00 

09F8 

85 

91 

A9 

A0 

8D 

4 E 

E8 

CE 

0 A00 

13 

E8 

A9 

2E 

8D 

48 

E8 

A9 

0A08 

00 

00 

8D 

49 

E8 

AE 

06 

02 

0A10 

9 A 

4C 

55 

D6 

20 

C0 

FC 

68 

0A18 

8D 

05 

02 

68 

8D 

04 

02 

68 

0A20 

8D 

03 

02 

68 

8D 

02 

02 

68 

0 A28 

8D 

01 

02 

68 

8D 

00 

00 

02 

0 A3 0 

BA 

8E 

06 

02 

58 

20 

34 

D5 
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0 A38 
0A40 
0A48 
0A50 
0 A58 

0A60 
0A68 
0A70 
0A78 
0A80 
0A88 
0A90 
0A98 
0 AA0 
0 AA8 

0 AB0 
0 AB8 
0 AC0 
0 AC8 
0 AD0 
0AD8 
0AE0 
0 AES 
0 AF0 
0 AF8 

0B00 
0B08 
0B10 
0B18 
0B20 
0B28 
0B30 
0B38 
0B40 
0B4 8 

0B50 

0B58 


20 

23 

D5 

85 

B5 

A0 

00 

00 


20 

FE 

D4 

20 

31 

D5 

AD 

00 


00 

02 

85 

FC 

AD 

01 

02 

85 


FB 

20 

17 

D7 

20 

0 E 

FC 

00 


20 

35 

F3 

C9 

F7 

F0 

F9 

20 











35 

F3 

D0 

03 

4C 

BA 

D4 

C9 


FF 

F0 

F4 

4C 

5B 

FD 

00 

20 


81 

FA 

00 

20 

44 

D7 

8 E 

11 


02 

A2 

03 

20 

79 

FA 

00 

48 


CA 

D0 

F9 

A2 

03 

68 

38 

E9 


3 F 

A0 

05 

4 A 

6E 

11 

02 

6 E 


10 

02 

88 

D0 

F6 

CA 

D0 

ED 


A2 

02 

20 

CF 

FF 

C9 

0D 

F0 


IE 

C9 

20 

F0 

F5 

20 

F7 

FE 


00 

B0 

0 F 

20 

78 

D7 

A4 

FB 


84 

FC 

85 

FB 

A9 

30 

9D 

10 


02 

E8 

9D 

10 

02 

E8 

D0 

DB 


8E 

0 B 

02 

A2 

00 

00 

86 

DE 


F0 

04 

E6 

DE 

F0 

7B 

A2 

00 


00 

86 

B5 

A5 

DE 

20 

74 

FC 


00 

A6 

FF 

8 E 

0C 

02 

AA 

BC 


5 E 

FF 

00 

BD 

9 E 

FF 

00 

20 


E0 

FE 

00 

D0 

E2 

A2 

06 

E0 


03 

D0 

1A 

AC 

1C 

02 

F0 

.15 


A5 

FF 

C9 

E8 

A9 

30 

B0 

21 


20 

E6 

FE 

00 

D0 

CA 

20 

E8 


FE 

00 

D0 

C5 

88 

DO 

EB 

06 


FF 

90 

0B 

BC 

57 

FF 

00 

BD 


51 

FF 

00 

20 

E0 

FE 

00 

D0 


B3 

CA 

D0 

D0 

F0 

0 A 

20 

DF 


FE 

00 

D0 

A9 

20 

DF 

FE 

00 


D0 

A4 

AD 

0 B 

02 

C 5 

B 5 

D0 


9D 

20 

44 

D7 

AC 

1C 

02 

F0 


2F 

AD 

0C 

02 

C9 

9D 

D0 

20 


20 

CA 

FA 

00 

90 

0B 

98 

D0 


05 

AE 

IB 

02 

10 

0B 

4C 

9 A 


FA 

00 

C8 

D0 

FA 

AE 

IB 

02 
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0B60 

10 

F5 

CA 

CA 

8 A 

AC 

1C 

02 

0B68 

D0 

03 

B9 

FC 

00 

00 

91 

FB 

0B7 0 

88 

D0 

F8 

A5 

DE 

91 

FB 

2 0 

0B78 

64 

FC 

00 

85 

FB 

84 

FC 

A0 

0B80 

41 

20 

79 

D5 

20 

17 

D7 

20 

0B88 

31 

D5 

4C 

D8 

FD 

00 

A8 

20 

0B90 

E6 

FE 

00 

D0 

11 

98 

F0 

0 E 

0B98 

86 

B4 

A6 

B5 

DD 

10 

02 

08 

0BA0 

E8 

86 

B5 

A6 

B4 

28 

60 

C9 

0BA8 

30 

90 

03 

C9 

47 

60 

38 

60 

0BB0 

40 

02 

45 

03 

D0 

08 

40 

09 

0BB8 

30 

22 

45 

33 

D0 

08 

40 

09 

0BC0 

40 

02 

45 

33 

D0 

08 

40 

09 

0BC8 

40 

02 

45 

B3 

D0 

08 

40 

09 

0BD0 

00 

00 

22 

44 

33 

D0 

8C 

44 

0BD8 

00 

00 

11 

22 

44 

33 

D0 

8C 

0BE0 

44 

9 A 

10 

22 

44 

33 

D0 

08 

0BE8 

40 

09 

10 

22 

44 

33 

D0 

08 

0BF0 

40 

09 

62 

13 

78 

A9 

00 

00 

0BF8 

21 

81 

82 

00 

00 

00 

00 

59 

0C00 

4D 

91 

92 

86 

4 A 

85 

9D 

2C 

0C08 

29 

2C 

23 

28 

24 

59 

00 

00 

0C10 

58 

24 

24 

00 

00 

1C 

8 A 

1C 

0C18 

23 

5D 

8 B 

IB 

A1 

9D 

8 A 

ID 

0C2 0 

23 

9D 

8B 

ID 

A1 

00 

00 

29 

0C28 

19 

AE 

69 

A8 

19 

23 

24 

53 

0C30 

IB 

23 

24 

53 

19 

A1 

00 

00 

0C38 

1A 

5B 

5B 

A5 

69 

24 

24 

AE 

0C4 0 

AE 

A8 

AD 

29 

00 

00 

7 C 

00 

0C48 

00 

15 

9C 

6D 

9C 

A5 

69 

29 

0C50 

53 

84 

13 

34 

11 

A5 

69 

23 

0C58 

A0 

D8 

62 

5A 

48 

26 

62 

94 

0C60 

88 

54 

44 

C8 

54 

68 

44 

E8 

0C68 

94 

00 

00 

B4 

08 

84 

74 

B4 

0C7 0 

28 

6 E 

74 

F4 

CC 

4 A 

72 

F2 

0C78 

A4 

8 A 

00 

00 

AA 

A2 

A2 

74 

0C8 0 

74 

74 

72 

44 

68 

B2 

32 

B2 

0C88 

00 

00 

22 

00 

00 

1A 

1A 

26 
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0C90 26 72 72 88 C8 C4 CA 26 
0C98 48 44 44 A2 C8 54 46 48 
0CA0 44 50 2C 41 49 4E 00 00 
0CA8 DB FA 00 30 FB 00 5E FB 
0CB0 00 D1 FB 00 F8 FC 00 28 
0CB8 FD 00 D4 FD 00 4D FD 00 
0CC0 B9 D4 IF FD 00 4A FA 00 
0CC8 33 FA 00 AA AA AA AA AA 


Program 3. Changes For SUPERMON 3.0. 


06D0 

20 

EB 

E7 

C9 

20 

F0 

F9 

60 

06E0 

79 

FA 

00 

20 

BE 

E7 

20 

AA 

06E8 

E7 

90 

09 

60 

20 

EB 

E7 

20 

06F0 

A7 

E7 

B0 

DE 

AE 

06 

02 

9A 

06F8 

4C 

F7 

E7 

20 

CD 

FD 

CA 

D0 

0738 

81 

FA 

00 

20 

97 

E7 

20 

92 

0748 

FA 

00 

20 

CA 

FA 

00 

20 

97 

0750 

E7 

90 

15 

A6 

DE 

D0 

65 

20 

0760 

FD 

20 

A8 

FA 

00 

20 

D5 

FD 

0798 

00 

20 

81 

FA 

00 

20 

97 

E7 

07A0 

20 

92 

FA 

00 

20 

97 

E7 

20 

07A8 

EB 

E7 

20 

B6 

E7 

90 

14 

85 

07C0 

D5 

FD 

D0 

EE 

4C 

9 A 

FA 

00 

07C8 

4C 

56 

FD 

20 

81 

FA 

00 

20 

07D0 

97 

E7 

20 

92 

FA 

00 

20 

97 

07D8 

E7 

20 

EB 

E7 

A2 

00 

00 

20 

07E0 

EB 

E7 

C9 

27 

D0 

14 

20 

EB 

07E8 

E7 

9D 

10 

02 

E8 

20 

CF 

FF 

07F8 

F0 

1C 

8E 

00 

00 

01 

20 

BE 

0800 

E7 

90 

C6 

9D 

10 

02 

E8 

20 

0808 

CF 

FF 

C9 

0D 

F0 

09 

20 

B6 

0810 

E7 

90 

B6 

E0 

20 

D0 

EC 

86 

0818 

B4 

20 

D0 

FD 

A2 

00 

00 

A0 


0830 6A E7 20 CD FD 20 D5 FD 
0840 B0 DD 4C 56 FD 20 81 FA 
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0878 

D2 

FF 

4C 

56 

FD 

A0 

2C 

20 

0880 

15 

FE 

20 

6 A 

E7 

20 

CD 

FD 

08E0 

20 

75 

E7 

A6 

B4 

60 

AD 

1C 

0980 

4C 

CD 

FD 

20 

81 

FA 

00 

20 

0988 

97 

E7 

20 

92 

FA 

00 

20 

97 

0990 

E7 

A9 

04 

A2 

00 

00 

8D 

09 

0998 

02 

8 E 

0 A 

02 

20 

D0 

FD 

20 

09A8 

FB 

84 

FC 

20 

01 

F3 

F0 

05 

09B0 

20 

CA 

FA 

00 

B0 

E9 

4C 

56 

09B8 

FD 

20 

81 

FA 

00 

A9 

03 

85 

09C0 

B5 

20 

EB 

E7 

20 

A7 

FD 

D0 

09E8 

0 A 

02 

20 

D0 

FD 

78 

AD 

FA 

0 A10 

9A 

4C 

FI 

FE 

20 

7B 

FC 

68 

0 A30 

BA 

8 E 

06 

02 

58 

20 

D0 

FD 

0 A38 

20 

BF 

FD 

85 

B5 

A0 

00 

00 

0A40 

20 

9 A 

FD 

20 

CD 

FD 

AD 

00 

0A50 

FB 

20 

6 A 

E7 

20 

0 E 

FC 

00 

0 A58 

20 

01 

F3 

C9 

F7 

F0 

F9 

20 

0A60 

01 

F3 

D0 

03 

4C 

56 

FD 

C9 

0A70 

81 

FA 

00 

20 

97 

E7 

8E 

11 

0AA8 

00 

B 0 

0 F 

20 

CB 

E7 

A4 

FB 

0B38 

9D 

20 

97 

E7 

AC 

1C 

02 

F0 

0B8 0 

41 

20 

15 

FE 

20 

6 A 

E7 

20 

0B88 

CD 

FD 

4C 

D8 

FD 

00 

A8 

20 


0CC0 55 FD 7F FD 00 4A FA 00 


Program 4. SUPERMON 4.0 Checksum. 

100 REM SUPERMON 4 CHECKSUM 
110 DATA?331,12186,10071,10387,1082 
9,9175,10314,9823,9715,871 
4,8852 

120 DATA8850,9748,7754,10247,10423, 
10948,10075,6093,5492,7805 
:S=1536 
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130 FORB=1T021:READX:FQRI=STOS+79:N 
=PEEK(I):Y=Y+N 

140 NEXTI : IFYOXTHENPRINT"ERROR IN ' 
BLOCK #"B:GOTO160 
150 PRINT"BLOCK #"B" IS CORRECT" 

160 S=I:Y=0:NEXTB:PRINT"CHECK THE F 
INAL, SHORT BLOCK BY HAND" 


Program 5. Changes For SUPERMON 3.0 Checksum. 

100 REM SUPERMON 3 CHECKSUM 
110 DATA7331,12186,10467,10880,1112 
4,10005,10906,10196,9951,8 
813 

120 DATA8852,9329,10239,8457,10334, 
10423,11047,10311,6093,549 
2 ,7805:S=1536 
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PETMICROMON 

An Enhanced Machine 
Language Monitor 

Micromon is for Upgrade and 4.0 BASICs, all memory sizes, all 
keyboards and is in the public domain. If you have enough memory, 
you can add the additional commands of "Micromon Plus" as well. 
"Plus" is from $5B00 to $5F48 and you will want to move Micromon 
from $1000 up to $6000. 

There is quite a bit of typing here so there are two checksum 
programs which will find and flag any errors. See the instructions for 
typing in Supermon. 

Micromon Instructions 
SIMPLE ASSEMBLER 

.A 2000 LDA #$12 
.A 2002 STA $8000,X 
.A 2005 DEX:GARBAGE 

In the above example, the user started assembly at 2000 hex. The first 
instruction was load a register with immediate 12 hex. In the second 
line the user did not need to type the A and address. The simple 
assembler retypes the last entered line and prompts with the next 
address. To exit the assembler, type a return after the address 
prompt. Syntax is the same as the Disassembler output. A colon (:) 
can be used to terminate a line. 

BREAK SET 

.B 1000 00FF 

The example sets a break at 1000 hex on the FF hex occurrence of the 
instruction at 1000. Break set is used with the QUICK TRACE 
command. A BREAK SET with count blank stops at the first 
occurrence of the break address. 

COMPARE MEMORY 
.C 1000 2000 cooo 

Compares memory from hex 1000 to hex 2000 to memory beginning at 
hex C000. Compare will print the locations of the unequal bytes. 

DISASSEMBLER 

.D 2000 3000 
., 2000 A9 12 LDA #$12 
., 2002 9D 00 80 STA $8000,X 
., 2005 A A TAX 
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Disassembles from 2000 to 3000. The three bytes following the 
address may be modified. Use the CRSR KEYS to move to and 
modify the bytes. Hit return and the bytes in memory will be 
changed. Micromon will then disassemble that line again. 

Disassembly can be done under the control of the cursor. To 
disassemble one at a time from $1000. 

.D 1000 

If the cursor is on the last line, one instruction can be disassembled 
for each pressing of the cursor down key. If it is held down, the key 
will repeat and continuous disassembly will occur. Disassembly can 
even be in reverse! If the screen is full of a disassembly listing, place 
the cursor at the top line of the screen and press the cursor up key. 

EXIT MICROMON 

.E 

Combine the killing of Micromon and exit to BASIC. 

FILL MEMORY 

.F 1000 1100 FF 

Fills the memory from 1000 hex to 1100 hex with the byte FF hex. 

GO RUN 
.G 

Go to the address in the PC Register display and begin run code. All 
the registers will be replaced with the displayed values. 

.G 1000 

Go to address 1000 hex and begin running code. 

HUNT MEMORY 

• H C000 D000 'READ 

Hunt through memory from C000 hex to D000 hex for the ASCII 
string “read" and print the address where it is found. Maximum of 
32 characters may be used. 

.H C000 D000 20 D2 FF 

Hunt memory from C000 hex to D000 hex for the sequence of bytes 20 
D2 FF and print the address. A. maximum of 32 bytes may be used. 
Hunt can be stopped with the STOP key. 

KILL MICROMON 
.K 

Restore the Break vector and IRQ that was saved before Micromon 
was called and break into the TIM monitor. A return to Micromon can 
be done with a Go to the value in the PC register. 

LOAD 

.L "RAM TEST",08 
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Load the program named RAM TEST from the disk. Note for cassette 
users: To load or save to cassette. Kill Micromon with the K command 
to return to the TIM monitor. Then use the TIM monitor L and S 
commands to load and save to the cassettes. This has to be done 
because of the repeat keys of Micromon. BASIC 4.0 users then can 
return to Micromon with a Go command to the PC value, but BASIC 
2.0 users should return to BASIC, then SYS to Micromon because the 
TIM overwrites the IRQ value for loads and saves with a filename. 

MEMORY DISPLAY 

■ M 0000 0008 

.: 0000 30 31 32 33 34 35 36 37 1234567 
.: 0008 38 41 42 43 44 45 46 47 89ABCDE 

Display memory from 0000 hex to 0008 in hex and ASCII. The bytes 
following the address may be modified by editing and then typing a 
RETURN. 

Memory display can also be done with the cursor control keys. 

NEW LOCATER 

.N 1000 17FF 6000 1000 1FFF 
.N 1FB0 1FFF 6000 1000 1FFF W 

The first line fixes all three byte instructions in the range 1000 hex to 
1FFF hex by adding 6000 hex offset to the bytes following the 
instruction. New Locater will not adjust any instruction outside of the 
1000 hex to 1FFF hex range. The second line adjusts Word values in 
the same range as the first line. New Locater stops and disassembles 
on any bad op code. 

CALCULATE BRANCH OFFSET 

.O 033A 033A FE 

Calculate the offset for branch instructions. The first address is the 
starting address and the second address is the target address. The 
offset is then displayed. 

QUICK TRACE 
•Q 

.Q 1000 

The first example begins trace at the address in the PC of the register 
display. The second begins at 1000 hex. Each instruction is executed 
as in the WALK command, but no disassembly is shown. The Break 
Address is checked for the break on Nth occurrence. The execution 
may be stopped by pressing the STOP and = (left arrow on business) 
keys at the same time. 

REGISTER DISPLAY 

.R 

PC IRQ SR AC XR YR SP 
.: 0000 E455 01 02 03 04 05 
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Displays the register values saved when Micromon was entered. The 
values may be changed with the edit followed by a RETURN. 

SAVE 

•S "l:PROGRAM NAME",08,0800,OC80 

Save to disk drive #1 memory from 0800 hex up to, but not including, 
0C80 hex and name it PROGRAM NAME. See note in LOAD 
command for cassette users. 

TRANSFER MEMORY 

■T 1000 1100 5000 

Transfer memory in the range 1000 hex to 1100 hex and start storing it 
at address 5000 hex. 

WALK CODE 

.w 

Single step starting at address in register PC. 

.W 1000 

Single step starting at address 1000 hex. Walk will cause a single step 
to execute and will disassemble the next instruction. Stop key stops 
walking. The ] key finishes a subroutine that is walking, then 
continues with the walk. 

EXIT TO BASIC 

.X 

Return to BASIC READY mode. The stack value saved when entered 
will be restored. Care should be taken that this value is the same as 
when the monitor was entered. A CLR in BASIC will fix any stack 
problems. Do not X to BASIC then return to Micromon via a SYS to 
the cold start address. Return via a SYS to BRK (SYS 1024) or SYS to 
the Warm start of Micromon (Warm start=Cold start+3). An X and 
cold start will write over the TIM break vector that was saved. 

CHANGE CHARACTER SETS 
.z 

Change from uppercase/graphics to lower/uppercase mode or vice 
versa. 

HEX CONVERSION 

.$4142 16706 A B 0100 0001 0100 0010 

A hex number is input and the decimal value, the ASCII for the two 
bytes, and the binary values are returned. The ASCII control values 
are returned in reverse. 

Hex conversion can also be scrolled with the cursor control keys. 

DECIMAL CONVERSION 

.#16706 4142 A B 0100 0001 0100 0010 
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A decimal number is input and the hex value, the ASCII for the two 
bytes, and the binary values are returned. 

BINARY CONVERSION 

.%0100000101000010 4142 16706 A B 

A binary number is input and the hex value, the decimal number, and 
the ASCII values are returned. 

ASCII CONVERSION 

."A 41 65 0100 0001 

An ASCII character is input and the hex value, decimal value, and 
binary values are returned. Because of the quote, the control characters 
can be determined also. 

ADDITION 

.+ 1111 2222 3333 

The two hex numbers input are added, and the sum displayed. 

SUBTRACTION 

.-3333 1111 2222 

The second number is subtracted from the first number and the 
difference displayed. 

CHECKSUM 

.& A000 AFFF 67E2 

The checksum between the two addresses is calculated and 
displayed. 

MICROMON INSTRUCTIONS: 

A SIMPLE ASSEMBLE 
B BREAK SET 
C COMPARE MEMORY 
D DISASSEMBLER 
E EXIT MICROMON 
F FILL MEMORY 
G GO RUN 
H HUNT MEMORY 
K KILL MICROMON 
L LOAD 

M MEMORY DISPLAY 
N NEW LOCATER 
O CALCULATE BRANCH 
Q QUICK TRACE 
R REGISTER DISPLAY 
S SAVE 

T TRANSFER MEMORY 
W WALK CODE 
X EXIT TO BASIC 
Z CHANGE CHARACTER SETS 
$ HEX CONVERSION 
# DECIMAL CONVERSION 
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% BINARY CONVERSION 
" ASCII CONVERSION 
+ ADDITION 
- SUBTRACTION 
& CHECKSUM 

Micromon also has repeat for all keys. 

Micromon is executed by the following: SYS 4096 as listed in 
Program 2, where it resides in $1000 to $1FFF. 

For 8032, make the following changes for Micromon operation. 
In location the X stands for the start of Micromon. Values in hex. 


Location 


Old Value New Value 


X3E7 08 

X3EC 08 

X3F6 08 

X427 08 

XD18 08 

XDA3 08 

XCFC 28 

XD7B 28 

XE16 83 

XE20 28 

XE24 CO 

XE26 04 

XE37 27 

XE46 28 

X681 24 


10 To display 16 instead 
10 of 8 bytes. 

10 

10 

10 

10 

50 To fix scroll. 

50 

87 

50 

80 

08 

4F 

50 

00 To print all characters 
in Walk command. 


Micromon Plus Instructions 
PRINTING DISASSEMBLER 
.(Shift) D 1000 1FFF 

The same as the Disassembler but no ., printed before each line. Also 
the ASCII values for the bytes are output at the end of the line. 

FORM FEED SET 


Sets a form feed for printout. Gives 57 printed lines per page. Works 
yvith the Shift D and Shift M commands. 

.1 “Heading" 

Sets form feed with a message to be printed at the top of each page. 

.IX 

Cancels form feed. 

PRINT LOAD ADDRESS 

J "File name" 

Read the load address of the file and print it in hex. Device number 8 
is used. 
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KILL MICROMON ADDITIONS 

.(Shift) K 

Kill Micromon and its additions and BRK to the TIM monitor. This is 
the same as the unshifted K command except now a G command will 
reinitialize Micromon and the additions. 

LOAD FROM DISK 

.(Shift) L “filename" 

This is the same as the normal load command except that the disk 
(device #8) is used as the default, not the cassette. 

PRINTING MEMORY DUMP 
.(Shift) M F000 F100 

The same as the normal Memory dump, but does not print the .: and 
prints out 16 hex bytes and the ASCII for them. 

PRINT SWITCHER 

.P 

If the output is to the CRT then switch the output to the printer 
(device #4). If the output is not to the CRT then clear the output 
device and restore the output to the CRT. 

• P06 

Make device #6 the output device if the current output is to the CRT. 

SEND TO PROM PROGRAMMER 

,U 06 7000 7FFF 

This command will send out bytes to a PROM programmer on the 
IEEE bus. The first byte is the device number and the two addresses 
are the range of memory to output. A CHR$(2) is sent first to start the 
programmer. This is followed by the memory bytes as ASCII 
characters separated by spaces. After all bytes have been sent, a 
CHR$(3) is sent to stop the programmer. Micromon then does a 
checksum on the range to compare against the programmer 
checksum. Although this is for a particular programmer, it could be 
modified for others. 

SPECIFY LOAD ADDRESS 
.Y 7000 "Filename" 

This command allows a file to be loaded starting at the address you 
specify and not the load address it would normally load into. The disk 
(device #8) is used for loading. 

TEXT FLIP FOR 8032 & FAT 40's 
.(Shift) Z 

This is for 8032 and Fat 40's to go from Text to Graphics mode or vice 
versa. 
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DOS SUPPORT 

or. > 

This reads the error channel from disk device number 8. 

disk command or . > disk command 

This sends the disk command to disk device number 8. 

.@$0 or. >$0 

This reads the directory from disk device number 8. The SPACE BAR 
will hold the display, any other key will start it again, and the STOP 
key will return to command mode. 

CONTROL CHARACTERS 

.(Up arrowjg 

This command will print the control character of the ASCII character 
input. 

Examples of controls: 

g Ring bell 
i Tab set and clear 
M Insert line 
n Text mode 
N Graphics mode 
q Cursor down 
Q Cursor up 
s Home cursor 
S Clear screen 
u Delete line 
v Erase end 
V Erase begin 


MICROMON PLUS INSTRUCTIONS 


(Shift) D 
1 
J 

(Shift) K 
(Shift) L 
(Shift) M 
P 
U 
Y 

(Shift) Z 


PRINTING DISASSEMBLER 
HEADING AND FORM FEED CONTROL 
PRINT LOAD ADDRESS 
KILL MICROMON ADDITIONS 
LOAD FROM DISK 
PRINT MEMORY DISPLAY 
PRINTER SWITCHING 
SEND TO PROM PROGRAMMER 
SPECIFY LOAD ADDRESS 
TEXT/GRAPHICS FLIP 
DOS SUPPORT COMMANDS 
DOS SUPPORT COMMANDS 
CONTROL CHARACTERS 
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Program I. Checksum For Micromon. 

10 DATA 15463,14894,14290,11897,12 
453,13919,14116,11715,1257 
5,14571 

20 DATA 13693,11853,12903,14513,12 
137,15006,12654,13291,1243 
6,13899 

30 DATA 15366,9999,11834,13512,128 
92,14475,15149,14896,15782 
,9511 

40 DATA 12171,8985 

100 Q=4096 

110 FOR BL0CK=1T032 

120 FOR BYTE-0TO127 

130 X=PEEK(Q+BYTE):CK=CK+X 

140 NEXT BYTE 

150 READ SUM 

160 IF SUM <> CK THEN PRINT" ERROR ~ 
IN BLOCK #"BLOCK:G0T0170 
165 PRINT" BLOCK" 

BLOCK" IS CORRECT 
170 CK=0:Q=Q+128 
180 NEXT BLOCK 


Program 2. Micromon. 


1000 

4C 

0C 

10 

4C 

6F 

10 

4C 

CF 

1008 

FF 

4C 

D2 

FF 

78 

A5 

92 

A6 

1010 

93 

8D 

E5 

02 

8E 

E6 

02 

AD 

1018 

F6 

IF 

AE 

F7 

IF 

8D 

E3 

02 

1020 

8 E 

E4 

02 

AD 

F0 

IF 

AE 

FI 

1028 

IF 

85 

92 

86 

93 

A5 

90 

A6 

1030 

91 

CD 

EE 

IF 

D0 

05 

EC 

EF 

1038 

IF 

F0 

10 

8D 

9 E 

02 

8E 

9F 

1040 

02 

AD 

EE 

IF 

AE 

EF 

IF 

85 

1048 

90 

86 

91 

AD 

EC 

IF 

AE 

ED 

1050 

IF 

E0 

80 

B0 

08 

85 

34 

86 

1058 

35 

85 

30 

86 

31 

A9 

10 

8D 

1060 

84 

02 

8D 

85 

02 

A9 

00 

8D 
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1068 

86 

02 

8D 

A2 

02 

58 

00 

38 


1070 

AD 

7B 

02 

E9 

01 

8D 

7B 

02 


1078 

AD 

7 A 

02 

E9 

00 

8D 

7A 

02 


1080 

20 

55 

19 

A2 

42 

A9 

2A 

20 


1088 

29 

18 

A9 

52 

D0 

23 

A9 

3F 

—* 

1090 

20 

09 

10 

20 

55 

19 

A9 

2E 


1098 

20 

09 

10 

A9 

00 

8D 

94 

02 


10A0 

8D 

A2 

02 

A2 

FF 

9A 

20 

A4 


10A8 

18 

C9 

2E 

F0 

F9 

C9 

2 0 

F0 


10B0 

F5 

A2 

ID 

DD 

92 

IF 

D0 

13 


10B8 

8D 

87 

02 

8A 

0A 

AA 

BD 

B0 


10C0 

IF 

85 

FB 

BD 

B1 

IF 

85 

FC 


10C8 

6C 

FB 

00 

CA 

10 

E5 

6C 

E3 


10D0 

02 

A2 

02 

D0 

02 

A2 

00 

B4 


10D8 

FB 

D0 

09 

B4 

FC 

D0 

03 

EE 


10E0 

94 

02 

D6 

FC 

D6 

FB 

60 

A9 


10E8 

00 

8D 

8C 

02 

20 

4F 

12 

A2 


10F0 

09 

20 

52 

19 

CA 

D0 

FA 

60 


10F8 

A2 

02 

B5 

FA 

48 

BD 

91 

02 


1100 

95 

FA 

68 

9D 

91 

02 

CA 

D0 


1108 

FI 

60 

AD 

92 

02 

AC 

93 

02 


1110 

4C 

17 

11 

A5 

FD 

A4 

FE 

38 


1118 

E5 

FB 

8D 

91 

02 

98 

E5 

FC 


1120 

A8 

0D 

91 

02 

60 

A9 

00 

F0 


1128 

02 

A9 

01 

8D 

95 

02 

20 

E6 


1130 

17 

20 

55 

19 

20 

13 

11 

20 


1138 

3C 

18 

90 

IB 

20 

0 A 

11 

B0 


1140 

03 

4C 

C5 

11 

20 

7F 

11 

E6 


1148 

FD 

D0 

02 

E6 

FE 

20 

3B 

19 


1150 

AC 

94 

02 

D0 

45 

F0 

E5 

20 


1158 

0 A 

11 

18 

AD 

91 

02 

65 

FD 


1160 

85 

FD 

98 

65 

FE 

85 

FE 

20 


1168 

F8 

10 

20 

7F 

11 

20 

0 A 

11 


1170 

B0 

53 

20 

D1 

10 

20 

D5 

10 


1178 

AC 

94 

02 

D0 

ID 

F0 

EB 

A2 



278 





Appendix F 














1180 

00 

A1 

FB 

AC 

95 

02 

F0 

02 



1188 

81 

FD 

Cl 

FD 

F0 

0B 

20 

13 



1190 

18 

20 

52 

19 

20 

AE 

18 

F0 



1198 

01 

60 

4C 

93 

10 

20 

01 

18 



11A0 

20 

0B 

18 

20 

A4 

18 

20 

6 F 



11A8 

18 

90 

17 

8D 

89 

02 

AE 

94 



11B0 

02 

D0 

12 

20 

13 

11 

90 

0D 



11B8 

AD 

89 

02 

81 

FB 

20 

3B 

19 



11C0 

D0 

EC 

4C 

8E 

10 

4C 

93 

10 



11C 8 

20 

01 

18 

20 

0B 

18 

20 

A4 



11D0 

18 

A2 

00 

20 

A4 

18 

C9 

27 


— 

11D8 

D0 

14 

20 

A4 

18 

9D 

A3 

02 



11E0 

E8 

20 

06 

10 

C9 

0D 

F0 

22 


A 

11E8 

E0 

20 

D0 

FI 

F0 

1C 

8 E 

97 



11F0 

02 

20 

77 

18 

90 

CC 

9D 

A3 


A 

11F8 

02 

E8 

20 

06 

10 

C9 

0D 

F0 


A 

1200 

09 

20 

6 F 

18 

90 

BC 

E0 

20 


— 

1208 

D0 

EC 

8 E 

88 

02 

20 

55 

19 



1210 

A2 

00 

A0 

00 

B1 

FB 

DD 

A3 



1218 

02 

D0 

0 A 

C8 

E8 

EC 

88 

02 



1220 

D0 

F2 

20 

8 E 

11 

20 

3B 

19 


A 

1228 

AC 

94 

02 

D0 

05 

20 

13 

11 



1230 

B0 

DE 

4C 

93 

10 

20 

39 

14 


A 

1238 

20 

13 

11 

90 

0D 

A0 

2C 

20 



1240 

E7 

10 

20 

AB 

12 

20 

AE 

18 


A 

1248 

D0 

EE 

20 

B3 

15 

D0 

E 3 

20 



1250 

47 

19 

20 

13 

18 

20 

52 

19 


A 

12 58 

20 

0 E 

IE 

48 

20 

0 B 

13 

68 



1260 

20 

22 

13 

A2 

06 

E 0 

03 

D0 



1268 

14 

AC 

8B 

02 

F0 

0F 

AD 

96 



1270 

02 

C9 

E8 

B1 

FB 

B0 

ID 

20 



1278 

A1 

12 . 

88 

D0 

FI 

0 E 
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Program 3. Checksum For Micromon Plus. 

10 DATA 15965,14778,13059,14282,14 
416,17693,12979,12903,1767 
6,21760 

20 DATA 14416,17693,12979,12903 

100 Q=23296 

110 FOR BL0CK=1T08 

120 FOR BYTE=0TO127 

130 X=PEEK(Q+BYTE):CK=CK+X 

140 NEXT BYTE 

150 READ SUM 

160 IF SUM <> CK THEN PRINT" ERROR ' 
IN BLOCK #"BLOCK:GOTO170 
165 PRINT" BLOCK" 

. BLOCK" IS CORRECT 
170 CK=0:Q=Q+128 
180 NEXT BLOCK 

190 PRINT"ANY REMAINING PROBLEMS AR 
E EITHER WITHIN THE FINAL" 

200 PRINT"S HORT BLOCK OR WITHIN DAT 
A STATEMENTS IN THIS PROGR 
AM. " 
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E8 


5CB8 

02 

D0 

F4 

A2 

03 

D0 

02 

A2 

A 

5CC0 

09 

20 

55 

69 

CA 

D0 

FA 

A9 


5CC8 

39 

8D 

E7 

02 

60 

A9 

00 

8 D 


5CD0 

E7 

02 

8D 

E8 

02 

4C 

9B 

60 


5CD8 

20 

09 

5C 

20 

CC 

FF 

20 

06 

A 

5CE0 

60 

C9 

0D 

F0 

16 

C9 

24 

F0 


5CE8 

24 

48 

20 

9 E 

5D 

68 

20 

09 


5CF0 

60 

20 

06 

60 

C9 

0D 

D0 

F6 

- 

5CF8 

4C 

DD 

5B 

20 

52 

69 

20 

C5 


5D00 

5D 

20 

06 

60 

C9 

0D 

F0 

F0 

A 

5D08 

20 

09 

60 

D0 

F4 

A2 

00 

20 


5D10 

82 

5D 

20 

8B 

5D 

20 

55 

69 

A 

5D18 

20 

55 

69 

A0 

03 

D0 

02 

A0 


5D20 

0 2 

84 

D1 

A9 

08 

85 

AF 

20 


5D28 

06 

60 

AA 

A4 

96 

D0 

36 

20 


5D30 

06 

60 

A4 

96 

D0 

2F 

C6 

D1 


5D38 

D0 

ED 

20 

36 

6B 

20 

52 

69 


5D4 0 

20 

06 

60 

F0 

05 

20 

09 

60 


293 



Appendix F 


5D48 

D0 

F6 

20 

55 

69 

A9 

00 

85 

_ 

5D50 

AF 

20 

E4 

FF 

F0 

C9 

D0 

05 


5D58 

20 

E4 

FF 

F 0 

FB 

C9 

20 

F0 


5D60 

F7 

C9 

03 

D0 

BA 

20 

12 

5E 


5D68 

20 

55 

69 

4C 

93 

60 

20 

17 


5D7 0 

6C 

C9 

22 

D0 

7B 

A2 

00 

20 


5D78 

06 

60 

C9 

0D 

F0 

0C 

C9 

22 


5D8 0 

F0 

08 

9D 

A3 

02 

E8 

E0 

40 


5D88 

90 

ED 

60 

86 

D1 

A9 

A3 

85 


5D90 

DA 

A9 

02 

85 

DB 

20 

CC 

FF 


5D98 

20 

F3 

5D 

4 C 

C9 

5D 

A9 

08 


5DA0 

85 

D4 

85 

B0 

AC 

00 

C0 

C0 


5DA8 

40 

D0 

0B 

20 

BA 

F0 

A9 

6F 


5DB0 

20 

28 

FI 

4C 

F7 

5B 

C0 

4C 


5DB8 

D0 

36 

20 

D5 

F0 

A9 

6F 

20 


5DC0 

43 

FI 

4C 

F7 

5 B 

A9 

6F 

85 


5DC8 

D3 

A9 

08 

85 

D4 

85 

AF 

AC 


5DD0 

00 

C0 

C0 

40 

D0 

0B 

20 

B6 


5DD8 

F0 

A5 

D3 

20 

64 

FI 

4C 

F7 


5DE0 

5B 

C0 

4C 

D0 

0 B 

20 

D2 

F0 


5DE8 

A5 

D3 

20 

93 

FI 

4C 

F7 

5B 


5DF0 

4C 

8E 

60 

A9 

08 

85 

D4 

A9 


5DF8 

60 

85 

D3 

AD 

00 

C0 

C9 

40 


5E0 0 

D0 

06 

20 

66 

F4 

4C 

F7 

5B 

a 

5E08 

C9 

4C 

D0 

E4 

20 

A3 

F 4 

4C 


5E10 

F7 

5B 

A9 

0 0 

85 

AF 

AD 

00 


5E18 

C0 

C9 

40 

D0 

03 

4C 

8 F 

F3 


5E20 

C9 

4C 

D0 

CC 

4C 

CE 

F3 

A9 


5E28 

02 

2C 

4C 

E8 

08 

A9 

0E 

28 


5E30 

F0 

02 

09 

80 

20 

09 

60 

4C 


5E38 

93 

60 

20 

09 

5C 

20 

6E 

5D 


5E4 0 

20 

8B 

5D 

20 

06 

60 

8D 

FB 


5E4 8 

00 

20 

06 

60 

8D 

FC 

00 

20 


5E50 

12 

5E 

20 

52 

69 

A9 

24 

A2 


5E58 

20 

20 

29 

68 

20 

13 

68 

4C 


5E60 

93 

60 

20 

60 

6C 

00 

6C 

3E 


5E68 

5F 

A0 

08 

84 

D4 

A0 

4C 

8C 
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5E70 

87 

0 2 

A0 

00 

4C 

C4 

69 

20 

- 

5E78 

17 

6C 

29 

9 F 

4C 

34 

5E 

4C 

- 

5E80 

8E 

60 

20 

A4 

68 

20 

6F 

68 


5E88 

29 

IF 

C9 

04 

90 

FI 

85 

D4 


5E90 

20 

2 A 

6C 

A 5 

FD 

A6 

FE 

8D 


5E9 8 

92 

02 

8E 

93 

02 

20 

3C 

68 


5EA0 

A5 

D4 

20 

E3 

5B 

A9 

02 

20 

_ 

5EA8 

09 

60 

20 

52 

69 

20 

13 

61 


5EB0 

90 

0F 

AE 

94 

02 

D0 

0A 

A1 


5EB8 

FB 

20 

1A 

68 

20 

3B 

69 

D0 


5EC0 

E9 

A9 

03 

20 

09 

60 

20 

EF 

A 

. 5EC8 

60 

20 

CC 

FF 

20 

F8 

60 

4C 


5ED0 

7D 

6C 

20 

09 

5C 

20 

01 

68 


5ED8 

20 

6 E 

5D 

86 

D1 

20 

04 

5F 


5 EE0 

20 

8D 

5D 

20 

06 

60 

20 

06 


5EE8 

60 

A9 

00 

85 

AF 

AD 

00 

C0 


5 EF0 

C9 

40 

D0 

06 

20 

52 

F3 

4C 


5EF8 

01 

5F 

C9 

4C 

D0 

81 

20 

8C 


_ 

5F00 

F3 

4C 

12 

6 A 

AD 

00 

C0 

C9 


5F08 

40 

D0 

03 

4C 

0A 

F4 

C9 

4C 


5F10 

D0 

EA 

4C 

49 

F4 

50 

C4 

49 


5F18 

CD 

40 

3E 

DA 

4 A 

CB 

CC 

5E 

A 

5F20 

55 

59 

BE 

5B 

89 

5B 

6B 

5C 


5F28 

16 

5C 

D8 

5C 

D8 

5C 

27 

5E 

A 

5F30 

3A 

5E 

62 

5E 

69 

5E 

77 

5E 


5F38 

82 

5 E 

D2 

5 E 

69 

5B 

00 

5B 


5F4 0 

31 

30 

32 

31 

38 

31 

AA 

AA 
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VIC Micromon 


VIC machine language programmers: here's one of the most valuable 
tools there is for working in machine language. Thirty-four 
commands are at your disposal including single-step, hex conversion, 
search, EPROM routines, and a relocator. If you aren't yet working 
with machine language, the instructions for entering and using this 
program are easy to follow. As presented, this program takes up 4K 
of memory from $4000 (16384 decimal) to $4FFF (20479), but there are 
instructions for locating it elsewhere in RAM memory. To enter 
Micromon directly, see the Tiny PEEKer/POKEr program with 
Supermon 64 (in this Appendix). The commands for VIC Micromon 
are the same as the PET/CBM version except as noted below. 

VIC Micromon Instructions 

Initialize Memory And Screen Pointers 
.1 1000 1E00 IE 

Define low memory as $1000 and high memory as $1E00 regardless of 
the memory present. The screen is defined to start at the $1E page of 
memory. The screen memory should always be on an even page 
within the range of $1000 to $1E00. Odd page values result in 
incorrect setup and operation of the VIC display. Although 3K of 
RAM can be added at $400 to $FFF, this memory is not accessible for 
use as screen memory. 

Memory pages at $000 and $200 are accessible, but are not usable 
since they are used for BASIC and kernal storage, working buffers, 
and stack area. If the screen page is within the low to high memory 
range specified, there can be usage conflict of the screen memory 
pages. If the "I" command is used and exit is made to BASIC, the 
NEW command must be invoked in the BASIC environment to clean 
up the memory pointers used by BASIC. 

Jump To Micromon Subroutine 
•J 2000 

The subroutine at $2000 is called while remaining in the VIC 
Micromon environment. The assembly language subroutine should 
exit by using a RTS instruction, which causes a return to the 
command input section of VIC Micromon. The machine image as 
shown by the Register display command is not used, nor is‘it 
disturbed when the subroutine returns to the VIC Micromon. 

Load 

.L 2000 “TEST FILE" 01 

Search for and, if found, load into memory the data file on device #1 
named TEST FILE. If the name is not specified, the first file found is 
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loaded. The data is loaded into memory starting at location $2000. 

The last address loaded is determined by the length of the binary data 
file. If the device number is not specified, it defaults to device #1, 
which is the VIC cassette tape. The original memory addresses and 
name of the last file read can be inspected by doing a Memory display 
of the tape buffer which is at $375 for VIC Micromon. 

Print Switcher 
.P 

If the output is to the screen, then switch the ouput to the RS-232 
channel (device #2). If the output is not to the screen, restore the 
output to the screen with the RS-232 channel left active until the 
RS-232 output buffer is drained. Note that opening the RS-232 
channel grabs 512 bytes for I/O buffering from the top of memory. 

.P oooo 

Regardless of the output, clear the RS-232 channel and set 
output to the screen. 

.P CCBB 

If the output is to the screen, set CC into the RS-232 command 
register at location $294 and BB into the RS-232 control register at 
location $293. Output is then switched to the RS-232 channel. This 
command is invalid if output is not currently to the screen. 


Command Register Format 


Field 

Use 

Value 

Description 

7,6,5 

Parity Options 

-0 

Parity disabled 



001 

Odd parity 



Oil 

Even parity 



101 

Mark transmitted 



111 

Space transmitted 

4 

Duplex 

0 

Full duplex 



1 

Half duplex 

3,2,1 

Unused 



0 

Handshake 

0 

3 line 



1 

x line 
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Control Register Format 


Field 

Use 

Value 

Description 

7 

Stop Bits 

0 

1 stop bit 



1 

2 stop bits 

6,5 

Word Length 

00 

8 bits 



01 

7 bits 



10 

6 bits 



11 

5 bits 

4 

Unused 



3,2,1,0 

Baud Rate 

0000 

User rate 



0001 

50 Baud 



0010 

75 



0011 

110 



0100 

134.5 



0101 

150 



0110 

300 



0111 

600 



1000 

1200 



1001 

1800 



1010 

2400 


Save 

• S 2000 3000 "TEST FILE” 01 

Save memory from $2000 up to, but not including, $3000 onto device 
#1, which is the VIC cassette tape. If the device number is not 
specified, it defaults to device #1. The name TEST FILE is placed in 
the file header for the file saved. 

Verify 

.V 2000 "TEST FILE" 01 

Search for and verify, if found, the data file on device #1 named 
“TEST FILE." If the name is not specified, the first file found is 
verified. The data is verified by reading the file and comparing it to 
the data in memory starting at location $2000. If not specified, the 
device defaults to device #1. If there is a mismatch, the message 
ERROR is output to the screen at the end of the file verification. 

Command End Tone 

.( 

Enable the command end tone. A continuous tone will be generated 
at the end of execution of the next command. The tone can be turned 
off but still be enabled by just hitting the carriage return. No tone is 
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generated if there is a syntax error while inputting the next 
command. 

Disable the command end tone. 

Program EPROM 

• ir 2800 2FFF 00 

Program the 2716 type EPROM via the EPROM programmer on the 
VIC User I/O port with data read from memory starting at location 
$2800 and ending at location $2FFF. The last input parameter specifies 
in hex the starting 256 byte page offset on the EPROM. If the low 
order byte of the starting memory address is zero and the offset is 
zero, then the programming starts with the first byte of the EPROM. 
For example, to program only the last byte of the 2K EPROM with a 
data byte from location $2FFF in memory, the command would be: 

. 7r 2FFF 2FFF 07 

During programming, a compare of EPROM to memory is done 
for each data byte just after it is written to the EPROM. Any mismatch 
due to failure to program the EPROM results in output to the screen 
of the mismatched memory location. If programming must be 
terminated early, just hit the STOP key. No other means should be 
used to abort EPROM programming. A warm restart or power down 
while programming can damage the EPROM. 

Read EPROM 

.£ 2000 27FF 00 

Load memory starting at location $2000 and ending at location $27FF 
with data read from the EPROM via the EPROM programmer on the 
VIC User I/O port. The last input parameter specifies in hex the 
starting 256 byte page offset on the EPROM. If the low order byte of 
the starting memory address is zero and the offset is zero, then 
reading starts with the first byte of the EPROM. For example, to read 
only the last byte of the 2K EPROM and load that byte into memory at 
location $10FF, the command would be: 

.£ 10FF 10FF 07 

During memory load, a compare of EPROM to memory is done 
for each data byte just after it is written to memory. Any mismatch 
because of failure to write the memory with data from the EPROM 
results in output to the screen of the mismatched memory location. 
The STOP key can be used to terminate the command early. 

Compare EPROM 

. = 3000 37FF 00 

Compare memory starting at location $3000 and ending at location 
$37FF with data read from the EPROM via the EPROM programmer 
on the VIC User I/O port. The last input parameter specifies in hex 
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the starting 256 byte page offset on the EPROM. If the low order byte 
of the starting memory address is zero and the offset is zero, then the 
reading starts with the first byte of the EPROM. For example, to read 
only the last byte of the 2K EPROM and compare that with the data 
byte in memory at location $37FF, the command would be: 

. = 37FF 37FF 07 

Any mismatch between the EPROM and corresponding memory 
data results in output to the screen of the mismatched memory 
location. The STOP key can be used to terminate the command early. 


Commands for VIC Micromon 


VIC Micromon Instruction 

Command 

SIMPLE ASSEMBLER 

A 

BREAK SET 

B 

COMPARE MEMORY 

C 

DISASSEMBLER 

D 

EXIT VIC MICROMON 

E 

FILL MEMORY 

F 

GO RUN 

G 

HUNT MEMORY 

H 

INITIAL MEMORY & SCREEN PTRS 

I 

JUMP TO SUBROUTINE 

J 

LOAD MEMORY FROM DEVICE 

L 

MEMORY DISPLAY 

M 

NEW LOCATE R 

N 

OFFSET OR BRANCH CALCULATE 

O 

PRINT SWITCHER 

P 

QUICK TRACE 

Q 

REGISTER DISPLAY 

R 

SAVE MEMORY TO DEVICE 

S 

TRANSFER MEMORY 

T 

VERIFY MEMORY FROM DEVICE 

V 

WALK CODE 

W 

EXIT TO BASIC 

X 

ASCII CONVERSION 

“ 

DECIMAL CONVERSION 

# 

HEXADECIMAL CONVERSION 

$ 

BINARY CONVERSION 

% 

CHECKSUM MEMORY 

& 

COMMAND END TONE ENABLE 

( 

COMMAND END TONE DISABLE 

) 

ADDITION 

+ 

SUBTRACTION 

- 

LOAD MEMORY FROM EPROM 

£ 

PROGRAM EPROM FROM MEMORY 

IT 

COMPARE EPROM TO MEMORY 

= 
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Of the set of commands available on the PET version of 
Micromon, only two were removed in the conversion to the VIC. 
These were the K (Kill Micromon) and Z (change character sets) 
commands. The K command is not necessary since the VIC doesn't 
have the TIM monitor. The function of the Z command, which is to 
change character sets, is already provided for on the VIC by pressing 
the VIC shift and Commodore keys at the same time. The rest of the 
commands described for the PET Micromon (see elsewhere in this 
appendix) all apply identically to the commands for VIC Micromon, 
with the exception of the LOAD and SAVE commands, which have 
different formats. 

VIC Micromon is always entered from VIC BASIC by a SYS 
16384 when it resides at $4000 to $4FFF. Either the E (Exit VIC 
Micromon) or the X (Exit to BASIC) command would be used to exit 
VIC Micromon and return to the BASIC environment. The difference 
between these two commands is that the X command leaves the VIC 
Micromon vectors in the IRQ and BRK interrupt vector locations 
while in the BASIC environment. Also, the tape buffer is left defined 
as beginning at $375. Thus, certain IRQ interrupt conditions such as 
the moving of the cursor to the top or bottom of the screen with 
output from a D, M, or $ command displayed will cause scrolling and 
reentry into VIC Micromon. Also, if a BRK instruction is executed, 

VIC Micromon will be reentered via its BRK interrupt handler. 

The E command restores the IRQ and BRK interrupt vectors and 
resets the tape buffer pointer to a value of $33C prior to exit to the VIC 
BASIC environment. Thus all active linkages and vectors to VIC 
Micromon are removed, and the VIC behaves as if VIC Micromon 
never existed. In particular, the E command should be used to exit 
VIC Micromon when the normal VIC cassette tape LOAD, SAVE, and 
VERIFY commands are to be used in the BASIC environment. 
Otherwise, invalid results are likely to occur with some tape 
operations. 

Both the E and X commands expect the stack pointer value (as 
shown for SP by the Register display command) to be the same as 
when VIC Micromon was first entered via the BASIC SYS command. 
If the value of SP or the part of the stack pointed to by SP is 
overwritten, such as by the execution of faulty code, a clean exit to 
BASIC by the E and X commands is unlikely. However, both the E 
and X commands do check if BASIC has been initialized, and if not, 
exit to BASIC is via an indirect jump to the address given at location 
$C000. The address given in location $C000 is $E378, which is the 
entry to initialize BASIC. In this case, the value of SP and the 
contents of the stack aren't important. Once in BASIC and regardless 
of how the exit from VIC Micromon was made, any subsequent 
access to VIC Micromon at $4000 is always by a SYS16384. 


301 



Appendix F 


VIC Micromon as given here is located from $4000 to $4FFF. It 
can be relocated to any 256 byte page boundary by making the 
changes, as shown in the following example, which relocate VIC 
Micromon from $4000 to $6000. 

The example begins with VIC Micromon at $4000 and ends with 
a relocated VIC Micromon in RAM at $6000 as well as the original at 
$4000. 

,T 4000 4FFF 6000 
.N 6000 6003 2000 4000 4FFF 
.N 6012 6E6D 2000 4000 4FFF 
.N 6FB5 6FFE 2000 4000 4FFF W 


Location 

Old Value 

New Value 

6018 

45 

65 

602A 

43 

63 

6392 

4C 

6C 

6650 

45 

65 

66E7 

45 

65 

6897 

43 

63 


In order to access the relocated VIC Micromon at $6000, exit 
using the E command and then from BASIC use SYS24576. 

Cartridge And Checksum 

The VIC-20 treats cartridge programs located at $A000 in a special 
way. On power-up, a test is made for the existence of the $A000 
cartridge program, and if one exists, an indirect jump is made to the 
address specified at location $A000. This jump is made after the stack 
pointer is initialized, but before anything else is done. Because kernal 
initialization has not occurred, any cartridge program using kernal 
I/O routines must do kernal initialization before using those routines. 

VIC Micromon as presented here has the kernal initialization 
calls built in so that it can easily be relocated and used as a cartridge 
program at $A000. Besides making the changes to relocate it to $A000, 
the only additional changes are to the first four bytes of VIC 
Micromon. 


Location Contents 


A000 09 

A001 A0 

A002 C7 

A003 FE 
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Power-up with VIC Micromon installed as a cartridge at $A000 will 
result in immediate entry into VIC Micromon. Because BASIC is not 
initialized when the E or X command is used after power-up, the exit 
to BASIC will be via an indirect jump to the address given in location 
$C000, which is the entry to initialization of BASIC. Once in BASIC, 
subsequent access of VIC Micromon at $A000 must be made to 
location $A012, which is done via a SYS40978. 

There is one last point, or rather one last byte, in VIC Micromon 
which is not used for anything other than to make the 4K byte 
checksum of VIC Micromon come out to a rounded up page value. 

For example, the VIC Micromon from $4000 to $4FFF has a data byte 
value of $E6 at location $4FFF that results in a checksum of $BF00. 

This provides an easy way to verify the integrity of VIC Micromon 
without having to memorize or look up a checksum. 

Three Notes On VIC Micromon 

Using the VIC Micromon tape commands L, S, and V on a VIC-20 
with 3K of RAM installed at $400 to $FFF will result in overwrite of 
$400 to $438 with file header characters (blanks). This is due to the 
tape buffer being relocated to $375 while in VIC Micromon from the 
normal $33C. The normal VIC cassette commands will work properly 
and not overwrite this area when you EXIT from VIC Micromon. This 
is because VIC Micromon restores the tape buffer pointer value to 
$33C when an EXIT is done. This problem does not occur if the 3K 
RAM at $400 to $FFF is not installed. 

If the I (Initialize memory and screen pointers) command was 
used in VIC Micromon and you EXIT, then the RUN/STOP plus 
RESTORE should be used in addition to the NEW command to clean 
up the BASIC environment. 

Any binary image saved on cassette tape with the VIC 
Micromon "S" command can be loaded in the normal VIC-20 BASIC 
environment by using the command: LOAD'"',1,1 which looks for 
the next program on tape and LOADs it into the same part of memory 
that it came from (see page 9 of VIC-20 Programmer's Reference Guide). 

Checksum 

There's a good amount of typing to do to enter the VIC Micromon 
program. Use the following BASIC program (after you've SAVEd a 
copy of your efforts) to locate any errors you might have made. 


Program I. Micromon Checksum. 

1 IFPEEK(20478)=67ANDPEEK(20479)=73THENRUN10 

2 PRINT n VIC20 MICROMON LOAD Sc" : PRINT"VERIFIC 

ATION PROGRAM.PRINT 
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3 PRINT:PRINT:PRINT"AT LEAST 4K BYTES OF":PR 

INT"RAM MUST BE INSTALLED" 

4 PRINT"AT 16384 ($4000) ELSE":PRINT"LOAD WI 

LL FAIL.":PRINT 

5 PRINT"IF LOADED & VERIFIED":PRINT"OK, MICR 

OMON WILL BE":PRINT"ENTERED AUTOMATIC 
ALLY." 

6 LOAD"",1,1 

10 DATA 13328,16867,15061,13732,14507,13829,1 
3267,12747,16288,13920 

20 DATA 14355,11977,11877,13583,11338,15173,1 
2337,14852,14051,15713 

30 DATA 13442,15242,14746,15059,13134,15848,1 
5858,17856,13327,8601 
40 DATA 12171,10074 
100 Q=16384 
110 FOR BL0CK=1T032 
120 FOR BYTE=0TO127 
130 X=PEEK(Q+BYTE):CK=CK+X 
140 NEXT BYTE 
150 READ SUM 

160 IF SUM <> CK THEN PRINT"ERROR IN BLOCK #"B 
LOCK:ERR=1:GOTO170 
165 PRINT"BLOCK #"BLOCK" OK" 

170 CK=0:Q=Q+128 
180 NEXT BLOCK 

190 IFERR=1THENPRINT"LOAD FAILED":END 
200 SYS16384 


Program 2. VIC Micromon. 


4000 

78 

4C 

15 

40 

41 

30 

C3 

C2 

4008 

CD 

20 

8D 

FD 

20 

52 

FD 

20 

4010 

18 

E5 

20 

F9 

FD 

A9 

DF 

A2 

4018 

45 

8D 

16 

03 

8E 

17 

03 

AD 

4020 

14 

03 

AE 

15 

03 

C9 

91 

D0 

4028 

04 

E0 

43 

F0 

09 

8D 

60 

03 

4030 

8E 

61 
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4F90 

53 

50 

41 

42 

43 

44 

46 

47 


4F98 

48 

4C 

4D 

4E 

51 

52 

28 

54 


4 FA0 

57 

58 

2C 

3A 

3B 

24 

23 

22 


4 FAB 

2B 

2D 

4 F 

49 

4 A 

25 

26 

45 

a 

4 FB0 

56 

29 

3D 

5C 

FF 

AA 

49 

9 F 


4 FB8 

48 

3D 

44 

IF 

47 

02 

41 

F9 


4 FC0 

41 

87 

41 

A4 

46 

A0 

41 

AA 


317 





Appendix F 


4FC8 

49 

B0 

43 

3C 

47 

A8 

46 

40 

4FD0 

49 

16 

4C 

06 

41 

B8 

46 

2A 

4 FD8 

4C 

0C 

43 

15 

44 

79 

49 

64 

4FE0 

4 A 

F4 

4 A 

68 

4B 

ED 

4 B 

00 

4FE8 

4C 

35 

4 A 

CA 

4B 

2C 

4 A 

8D 

4FF0 

4B 

37 

4C 

21 

4C 

AA 

49 

19 

4FF8 

4C 

40 

43 

40 

43 

40 

43 

49 


318 



Appendix F 


Supermon64 

Supermon64 is your gateway to machine language programming on 
the Commodore 64. Supermon, in several versions, has been popular 
over the years as a major programming tool for Commodore users. 
Supermon64 itself is in machine language, but you can type it in 
without knowing what it means. Using the Tiny PEEKer/POKEr 
(Program 1), or via the built-in monitor of a PET, type it in and SAVE 
it. The fastest way to check for errors is to type in Program 3 on a 
regular PET. Then load Supermon64 into the PET. It will come in 
above your BASIC. Then RUN the checksum and it will report the 
location of any errors. Type POKE 8192,0 and hit RETURN. Then 
type POKE 44,32 followed by NEW. 

Enter the following: 


Program I. Tiny PEEKer/POKEr. 

100 PRINT "TINY PEEKER/POKER" 

110 X$= "*":INPUT X$:IF X$="*" THEN END 
120 GOSUB 500 
130 IF E GOTO 280 
140 A=V 

150 IF J>LEN(X$) GOTO 300 

160 FOR 1=0 TO 7 

170 P=J:GOSUB 550 

180 C(I)=V 

190 IF E GOTO 280 

200 NEXT I 

210 T=0 

220 FOR 1=0 TO 7 
230 POKE A+I,C(I) 

240 T=T+C(I) 

250 NEXT I 

260 PRINT "CHECKSUM=";T 
270 GOTO 110 

280 PRINT MID$(X$,1,J:GOTO 110 
300 T=0 

310 FOR 1=0 TO 7 
320 V=PEEK(A+I) 

330 T=T+V 
340 V=V/16 
350 PRINT " 

360 FOR J=1 TO 2 
370 V%=V 
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380 V=(V-V%)*16 

390 IF V%>9 THEN V%=V%+7 

400 PRINT CHR$(V%+48); 

410 NEXT J 

420 NEXT I 

430 PRINT "/"; T 

440 GOTO 110 

500 P=1 

510 L=4 

520 GOTO 600 

550 P=J 

560 L=2 

600 E=0 

610 V=0 

620 FOR J=P TO LEN(X$) 

630 X=ASC(MID$(X$,J)) 

640 IF X=32 THEN NEXT J 
650 IF J>LEN(X$) GOTO 790 
660 P=J 

670 FOR J=P TO LEN(X$) 

680 X=ASC(MID$(X$, J) ) 

690 IF X< >32 THEN NEXT J 
700 IF J-P<>L GOTO 790 
710 FOR K=P TO J-l 
720 X=ASC(MID$(X$,K)) 

730 IF X<58 THEN X=X-48 

740 IF X>64 THEN X=X-55 

750 IF X<0 OR X>15 GOTO 790 

760 V=V*16+X 

770 NEXT K 

780 RETURN 

790 E=—1 

800 RETURN 


This program is a very tiny monitor. It will allow you to enter 
information into memory, eight bytes at a time. To do this: wait for 
the question mark, and then type in monitor-format the address and 
contents: 

? 0800 00 1A 08 64 00 99 22 93 

The program will return a checksum value to you, which you 
can use to insure that you have entered the information correctly. To 
view memory, type in only the address: the contents will be 
displayed. 
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Completing The Job 

When you have finished entering all that data, you can make 
Supermon64 happen quite easily. Three last POKE commands and a 
CLR: 

POKE 44,8 
POKE 45, 235 
POKE 46,17 
CLR 

You have Supermon64. Save it with a conventional BASIC SAVE 
before you do anything else. 

Now you may RUN it — and learn how to use it. 


NOTE: Before entering the hex numbers with Tiny PEEKer/POKEr, 
type in the memory partitioning POKES: POKE 8192,0 and POKE 
44,32, and then type NEW. When you've finished entering all the hex 
numbers, type: POKE 44,8: POKE 46,17: CLR. You can then SAVE 
Supermon64 in the ordinary, BASIC way, to tape or disk. It's ready now 
to LOAD or RUN. Note also that the checksum program on page 333 
checks 129 bytes at a time. This can have the effect of attributing a typing 
error to the wrong block if the error occurs near the beginning or the end 
of a block. 


• Simple assembler 

.A 2000 LDA #$12 
.A 2002 STA $8000,X 
.A 2005 (RETURN) 

In the above example the user started assembly at 2000 hex. The 
first instruction was load a register with immediate 12 hex. In the 
second line the user did not need to type the A and address. The 
simple assembler prompts with the next address. To exit the 
assembler type a return after the address prompt. Syntax is the same 
as the disassembler output. 

• Disassembler 

.D 2000 

(SCREEN CLEARS) 

2000 A9 12 LDA #$12 
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2002 9D 00 80 

2005 AA 

2006 AA 


STA $8000,X 

TAX 

TAX 


(Full page of instructions) 

Disassembles 22 instructions starting at 2000 hex. The three 
bytes following the address may be modified. Use the CRSR keys to 
move to and modify the bytes. Hit return and the bytes in memory 
will be changed. Supermon64 will then disassemble that page again. 


• Printing disassembler 
.P 2000,2040 
2000 A9 12 
2002 9D 00 80 
2005 AA 


LDA #$12 
STA $8000,X 


203F A2 00 


LDX #$00 


To engage printer, set up beforehand: 

OPEN 4,4:CMD4 

• Fill memory 

.F 1000 1100 FF 

Fills the memory from 1000 hex to 1100 hex with the byte FF hex. 

• Go run 

.G 

Go to the address in the PC register display and begin RUN 
code. All the registers will be replaced with the displayed values. 

•G 1000 

Go to address 1000 hex and begin running code. 

• Hunt memory 

.H C000 D000 'READ 

Hunt through memory from C000 hex to D000 hex for the ASCII 
string read and print the address where it is found. A maximum of 32 
characters may be used. 
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•H C000 D000 20 D2 FF 

Hunt through memory from C000 hex to D000 hex for the 
sequence of bytes 20 D2 FF and print the address. A maximum of 32 
bytes may be used. 

• Load 


Load any program from cassette #1. 

•L "RAM TEST" 

Load from cassette #1 the program named RAM TEST. 

.L "RAM TEST",08 

Load from disk (device 8) the program named RAM TEST. This 
command leaves BASIC pointers unchanged. 

• Memory display 

•M 0000 0080 

0000 00 01 02 03 04 05 06 07 
0008 08 09 0A 0B 0C 0D 0E 0F 

Display memory from 0000 hex to 0080 hex. The bytes following 
the .: can be altered by typing over them, then typing a return. 

• Register display 


PC IRQ SR AC XR YR SP 
0000 E62E 01 02 03 04 05 

Displays the register values saved when Supermon64 was 
entered. The values may be changed with the edit followed by a 
return. 

• Save 

.S "PROGRAM NAME",01,0800,0C80 

SAVE to cassette #1 memory from 0800 hex up to but not 
including 0C80 hex and name it PROGRAM NAME. 


323 



Appendix F 


.S "0:PROGRAM NAME",08,1200,1F50 

SAVE to disk drive #0 memory from 1200 hex up to but not 
including 1F50 hex and name it PROGRAM NAME. 

• Transfer memory 

•T 1000 1100 5000 

Transfer memory in the range 1000 hex to 1100 hex and start 
storing it at address 5000 hex. 

• Exit to BASIC 
.X 

Return to BASIC ready mode. The stack value SAVEd when 
entered will be restored. Care should be taken that this value is the 
same as when the monitor was entered. A CLR in BASIC will fix any 
stack problems. 


Program 2. Supermon64. 


0800 

00 

1A 

04 

64 

00 

99 

22 

93 

0808 

12 

ID 

ID 

ID 

ID 

53 

55 

50 

0810 

45 

52 

20 

36 

34 

2D 

4D 

4 F 

0818 

4E 

00 

31 

04 

6E 

00 

99 

22 

0820 

11 

20 

20 

20 

20 

20 

20 

20 

0828 

20 

20 

20 

20 

20 

20 

20 

20 

0830 

00 

4B 

04 

78 

00 

99 

22 

11 

0838 

20 

2E 

2E 

4 A 

49 

4D 

20 

42 

0840 

55 

54 

54 

45 

52 

46 

49 

45 

0848 

4C 

44 

00 

66 

04 

82 

00 

9E 

0850 

28 

C2 

28 

34 

33 

29 

AA 

32 

0858 

35 

36 

AC 

C2 

28 

34 

34 

29 

0860 

AA 

31 

32 

37 

29 

00 

00 

00 

0868 

AA 

AA 

AA 

AA 

AA 

AA 

AA 

AA 

0870 

AA 

AA 

AA 

AA 

AA 

AA 

AA 

AA 

0878 

AA 

AA 

AA 

AA 

AA 

AA 

AA 

AA 
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0880 

0888 

0890 

0898 

08A0 

08A8 

08B0 

08B8 

08C0 

08C8 

08D0 

08D8 

08E0 

08E8 

08F0 

08F8 


0900 

0908 

0910 

0918 

0920 

0928 

0930 

0938 

0940 

0948 

0950 

0958 

0960 

0968 

0970 

0978 


A5 2D 
A5 37 
A0 00 
C6 22 
D0 02 
F0 21 
C6 23 
24 AA 
37 D0 
91 37 
C6 38 
90 B6 
85 33 
00 4F 
00 8D 
8D 17 


85 22 
85 24 
A5 22 
B1 22 
C6 23 
85 26 
C6 22 
A5 26 
02 C6 
8A 48 
C6 37 
C9 4 F 
A5 38 
4 F 4 F 
16 03 
03 A9 


A5 2 E 
A5 38 
D0 02 
D0 3C 
C6 22 
A5 22 
Bi 22 
65 25 
38 C6 
A5 37 
68 91 
D0 ED 
85 34 
4F AD 
AD E7 
80 20 


85 23 
85 25 
C6 23 
A5 22 
Bl 22 
D0 02 
18 65 
48 A5 
37 68 
D0 02 
37 18 
A5 37 
6C 37 
E6 FF 
FF 00 
90 FF 


00 

00 

D8 

68 

8D 

3E 

02 

68 

8D 

3D 

02 

68 

8D 

3C 

02 

68 

8D 

3B 

02 

68 

AA 

68 

A8 

38 

8 A 

E9 

02 

8D 

3 A 

02 

98 

E9 

00 

00 

8D 

39 

02 

BA 

8E 

3F 

02 

20 

57 

FD 

00 

A2 

42 

A9 

2 A 

20 

57 

FA 

00 

A9 

52 

D0 

34 

E6 

Cl 

D0 

06 

E6 

C2 

D0 

02 

E6 

26 

60 

20 

CF 

FF 

C9 

0D 

D0 

F8 

68 

68 

A9 

90 

20 

D2 

FF 

A9 

00 

00 

85 

26 

A2 

0D 

A9 

2 E 

20 

57 

FA 

00 

A9 

05 

20 

D2 

FF 

20 

3E 

F8 

00 

C9 

2E 

F0 

F9 

C9 

20 

F0 

F5 

A2 

0 E 

DD 

B7 

FF 

00 

D0 

0C 

8A 

0A 

AA 

BD 

C7 

FF 

00 

48 
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0980 

BD 

C6 

FF 

00 

48 

60 

CA 

10 


0988 

EC 

4C 

ED 

FA 

00 

A 5 

Cl 

8D 


0990 

3 A 

02 

A5 

C2 

8 D 

39 

02 

60 


0998 

A9 

08 

85 

ID 

A0 

00 

00 

20 


09A0 

54 

FD 

00 

B1 

Cl 

20 

48 

FA 

a. 

09A8 

00 

20 

33 

F8 

00 

C6 

ID 

D0 


09B0 

FI 

60 

20 

88 

FA 

00 

90 

0B 


09B8 

A2 

00 

00 

81 

Cl 

Cl 

Cl 

F0 


09C0 

03 

4C 

ED 

FA 

00 

20 

33 

F8 


09C8 

00 

C6 

ID 

60 

A9 

3B 

85 

Cl 


09D0 

A9 

02 

85 

C2 

A9 

05 

60 

98 


09D8 

48 

20 

57 

FD 

00 

68 

A2 

2E 


09E0 

4C 

57 

FA 

00 

A9 

90 

20 

D2 


09E8 

FF 

A2 

00 

00 

BD 

EA 

FF 

00 


09F0 

20 

D2 

FF 

E8 

E0 

16 

D0 

F5 


09F8 

A0 

3B 

20 

C2 

F8 

00 

AD 

39 



0A00 

02 

20 

48 

FA 

00 

AD 

3 A 

02 


0A08 

20 

48 

FA 

00 

20 

B7 

F8 

00 


0A10 

20 

8D 

F8 

00 

F0 

5C 

20 

3E 


0A18 

F8 

00 

20 

79 

FA 

00 

90 

33 


0A20 

20 

69 

FA 

00 

20 

3E 

F8 

00 


0 A28 

20 

79 

FA 

00 

90 

28 

20 

69 


0A30 

FA 

00 

A9 

90 

20 

D2 

FF 

20 


0A38 

El 

FF 

F0 

3C 

A6 

26 

D0 

38 


0A40 

A5 

C3 

C5 

Cl 

A5 

C4 

E5 

C2 


0A48 

90 

2E 

A0 

3A 

20 

C2 

F8 

00 


0A50 

20 

41 

FA 

00 

20 

8B 

F8 

00 

—* 

0A58 

F0 

E0 

4C 

ED 

FA 

00 

20 

79 


0A60 

FA 

00 

90 

03 

20 

80 

F8 

00 


0A68 

20 

B7 

F8 

00 

D0 

07 

20 

79 


0A70 

FA 

00 

90 

EB 

A9 

08 

35 

ID 


0A7 8 

20 

3E 

F8 

00 

20 

A1 

F8 

00 



0A80 

D0 

F8 

4C 

47 

F8 

00 

20 

CF 


0A88 

FF 

C9 

0D 

F0 

0C 

C9 

20 

D0 

— 

0A90 

D1 

20 

79 

FA 

00 

90 

03 

20 
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0 * 












0 A98 

80 

F8 

00 

A9 

90 

20 

D2 

FF 



0 AA0 

AE 

3 F 

02 

9 A 

78 

AD 

39 

02 



0 AA8 

48 

AD 

3A 

02 

48 

AD 

3B 

02 



0 AB0 

48 

AD 

3C 

02 

AE 

3D 

02 

AC 


a 

0AB8 

3 E 

02 

40 

A9 

90 

20 

D 2 

FF 



0 AC0 

AE 

3 F 

02 

9 A 

6C 

02 

A0 

A0 



0 AC8 

01 

84 

BA 

84 

B9 

88 

84 

B7 



0 AD0 

84 

90 

84 

93 

A9 

40 

85 

BB 



0AD8 

A9 

02 

85 

BC 

20 

CF 

FF 

C9 


_ 

0 AE0 

20 

F0 

F9 

C9 

0D 

F0 

38 

C9 



0AE8 

22 

D0 

14 

20 

CF 

FF 

C9 

22 



0 AF0 

F0 

10 

C9 

0D 

F0 

29 

91 

BB 



0 AF8 

E6 

B7 

C8 

C0 

10 

D0 

EC 

4C 



0B0 0 

ED 

FA 

00 

20 

CF 

FF 

C9 

0D 



0B08 

F0 

16 

C9 

2C 

D0 

DC 

20 

88 



0 B1 0 

FA 

00 

29 

0F 

F0 

E9 

C9 

03 



0B18 

F0 

E5 

85 

BA 

20 

CF 

FF 

C9 



0B2 0 

0D 

60 

6C 

30 

03 

6C 

32 

03 



0B28 

20 

96 

F9 

00 

D0 

D4 

A9 

90 



0B30 

20 

D2 

FF 

A9 

00 

00 

20 

EF 



0B38 

F9 

00 

A5 

90 

29 

10 

D0 

C4 



0B40 

4C 

47 

F8 

00 

20 

96 

F9 

00 



0B48 

C9 

2C 

D0 

BA 

20 

79 

FA 

00 



0B50 

20 

69 

FA 

00 

20 

CF 

FF 

C9 



0B58 

2C 

D0 

AD 

20 

79 

FA 

00 

A5 


A 

0B60 

Cl 

85 

AE 

A5 

C2 

85 

AF 

20 



0B68 

69 

FA 

00 

20 

CF 

FF 

C9 

0D 


A 

0B7 0 

D0 

98 

A9 

90 

20 

D2 

FF 

20 


- 

0B78 

F2 

F9 

00 

4C 

47 

F8 

00 

A5 



0B8 0 

C2 

20 

48 

FA 

00 

A5 

Cl 

48 



0B88 

4 A 

4 A 

4 A 

4 A 

20 

60 

FA 

00 



0B9 0 

AA 

68 

29 

0 F 

20 

60 

FA 

00 



0B98 

48 

8 A 

20 

D2 

FF 

68 

4C 

D2 



0BA0 

FF 

09 

30 

C9 

3A 

90 

02 

69 



0BA8 

06 

60 

A2 

02 

B5 

C0 

48 

B5 


A 
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0BB0 

0BB8 

0BC0 

0BC8 

0BD0 

0BD8 

0BE0 

0BE8 

0BF0 

0BF8 


0C00 
0C08 
0C10 
0C18 
0C20 
0C28 
0C30 
0C38 
0C4 0 
0C48 
0C50 
0C58 
0C60 
0C68 
0C7 0 
0C78 


0C8 0 
0C88 
0C9 0 
0C98 
0CA0 
0CA8 
0CB0 
0CB8 
0CC0 
0CC8 
0CD0 
0CD8 
0CE0 


C2 

95 

C0 

68 

95 

C2 

CA 

D0 


F3 

60 

20 

88 

FA 

00 

90 

02 


85 

C2 

20 

88 

FA 

00 

90 

02 


85 

Cl 

60 

A9 

00 

00 

85 

2A 


20 

3E 

F8 

00 

C9 

20 

D0 

09 


20 

3E 

F8 

00 

C9 

20 

D0 

0E 


18 

60 

20 

AF 

FA 

00 

0A 

0 A 


0 A 

0 A 

85 

2A 

20 

3E 

F8 

00 


20 

AF 

FA 

00 

05 

2A 

38 

60 


C9 

3A 

90 

02 

69 

08 

29 

0 F 


60 

A2 

02 

2C 

A2 

00 

00 

B4 


Cl 

D0 

08 

B4 

C2 

D0 

02 

E6 


26 

D6 

C2 

D6 

Cl 

60 

20 

3E 


F8 

00 

C9 

20 

F0 

F9 

60 

A9 


00 

00 

8D 

00 

00 

01 

20 

CC 


FA 

00 

20 

8 F 

FA 

00 

20 

7C 


FA 

00 

90 

09 

60 

20 

3E 

F8 


00 

20 

79 

FA 

00 

B0 

DE 

AE 


3F 

02 

9 A 

A9 

90 

20 

D2 

FF 


A9 

3F 

20 

D2 

FF 

4C 

47 

F8 


00 

20 

54 

FD 

00 

CA 

D0 

FA 


60 

E6 

C3 

D0 

02 

E6 

C4 

60 

— 

A2 

02 

B5 

C0 

48 

B5 

27 

95 


C0 

68 

95 

27 

CA 

D0 

F3 

60 


A5 

C3 

A4 

C4 

38 

E9 

02 

B0 


0E 

88 

90 

0 B 

A5 

28 

A4 

29 


4C 

33 

FB 

00 

A5 

C3 

A4 

C4 


38 

E5 

Cl 

85 

IE 

98 

E 5 

C2 

—* 

A8 

05 

IE 

60 

20 

D4 

FA 

00 


20 

69 

FA 

00 

20 

E5 

FA 

00 


20 

0C 

FB 

00 

20 

E5 

FA 

00 


20 

2 F 

FB 

00 

20 

69 

FA 

00 


90 

15 

A6 

26 

D0 

64 

20 

28 


FB 

00 

90 

5F 

A1 

Cl 

81 

C3 


20 

05 

FB 

00 

20 

33 

F8 

00 


D0 

EB 

20 

28 

FB 

00 

18 

A5 


IE 

65 

C3 

85 

C3 

98 

65 

C4 


85 

C4 

20 

0C 

FB 

00 

A6 

26 


D0 

3D 

A1 

Cl 

81 

C3 

20 

28 
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0CE8 

FB 

00 

B0 

34 

20 

B8 

FA 

00 

0CF0 

20 

BB 

FA 

00 

4C 

7D 

FB 

00 

0CF8 

20 

D4 

FA 

00 

20 

69 

FA 

00 


0D0 0 

20 

E5 

FA 

00 

20 

69 

FA 

00 

0D08 

20 

3 E 

F8 

00 

20 

88 

FA 

00 

0D10 

90 

14 

85 

ID 

A6 

26 

D0 

11 

0D18 

20 

2 F 

FB 

00 

90 

0C 

A5 

ID 

0D2 0 

81 

Cl 

20 

33 

F8 

00 

D0 

EE 

0D28 

4C 

ED 

FA 

00 

4C 

47 

F8 

00 

0D3 0 

20 

D4 

FA 

00 

20 

69 

FA 

0 0 

0D38 

20 

E5 

FA 

00 

20 

69 

FA 

00 

0D40 

20 

3E 

F8 

00 

A2 

00 

00 

20 

0D48 

3E 

F8 

00 

C9 

27 

D0 

14 

20 

0D50 

3E 

F8 

00 

9D 

10 

02 

E8 

20 

0D58 

CF 

FF 

C9 

0D 

F0 

22 

E0 

20 

0D60 

D0 

FI 

F0 

1C 

8E 

00 

00 

01 

0D68 

20 

8 F 

FA 

00 

90 

C6 

9D 

10 

0D70 

02 

E8 

20 

CF 

FF 

C9 

0D 

F0 

0D78 

09 

20 

88 

FA 

00 

90 

B6 

E0 


0D80 

20 

D0 

EC 

86 

1C 

A9 

90 

20 

0D88 

D2 

FF 

20 

57 

FD 

00 

A2 

00 

0D9 0 

00 

A0 

00 

00 

B1 

Cl 

DD 

10 

0D98 

02 

D 0 

0C 

C8 

E8 

E4 

1C 

D0 

0DA0 

F3 

20 

41 

FA 

00 

20 

54 

FD 

0DA8 

00 

20 

33 

F8 

00 

A6 

26 

D0 

0DB0 

8D 

20 

2F 

FB 

00 

B0 

DD 

4C 

0DB8 

47 

F8 

00 

20 

D4 

FA 

00 

85 

0DC0 

20 

A5 

C2 

85 

21 

A2 

00 

00 

0DC8 

86 

28 

A9 

93 

20 

D2 

FF 

A9 

0DD0 

90 

20 

D2 

FF 

A9 

16 

85 

ID 

0DD8 

20 

6A 

FC 

00 

20 

CA 

FC 

00 

0DE0 

85 

Cl 

84 

C2 

C6 

ID 

D0 

F2 

0DE8 

A9 

91 

20 

D2 

FF 

4C 

47 

F8 

0DF0 

00 

A0 

2C 

20 

C2 

F8 

00 

20 

0DF8 

54 

FD 

00 

20 

41 

FA 

00 

20 

0E00 

54 

FD 

00 

A2 

00 

00 

A1 

Cl 

0E08 

20 

D9 

FC 

00 

48 

20 

IF 

FD 
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0 E10 
0E18 
0E20 
0E28 
0E30 
0E38 
0E40 
0E48 
0E50 
0E58 
0E60 
0E68 
0E7 0 
0E78 


0E8 0 
0E88 
0E90 
0E98 
0EA0 
0 EA8 
0EB0 
0 EB8 
0EC0 
0EC8 
0ED0 
0ED8 
0 EE0 
0EE8 
0EF0 
0EF8 


0F00 
0 F08 
0F10 
0F18 
0F20 
0F28 
0F30 
0F38 


00 

68 

20 

35 

FD 

00 

A2 

06 


E0 

03 

D0 

12 

A4 

IF 

F0 

0 E 


A 5 

2 A 

C9 

E8 

B1 

Cl 

B0 

1C 


20 

C2 

FC 

00 

88 

D0 

F2 

06 


2A 

90 

0 E 

BD 

2A 

FF 

00 

20 


A5 

FD 

00 

BD 

30 

FF 

00 

F0 


03 

20 

A5 

FD 

00 

CA 

D0 

D5 


60 

20 

CD 

FC 

00 

AA 

E8 

D0 


01 

C8 

98 

20 

C2 

FC 

00 

8A 


86 

1C 

20 

48 

FA 

00 

A6 

1C 


60 

A5 

IF 

38 

A4 

C2 

AA 

10 


01 

88 

65 

Cl 

90 

01 

C8 

60 


A8 

4 A 

90 

0B 

4 A 

B0 

17 

C9 


22 

F0 

13 

29 

07 

09 

80 

4A 


AA 

BD 

D9 

FE 

00 

B0 

04 

4A 


4 A 

4 A 

4 A 

29 

0F 

D0 

04 

A0 


80 

A9 

00 

00 

AA 

BD 

ID 

FF 


00 

85 

2A 

29 

03 

85 

IF 

98 


29 

8 F 

AA 

98 

A0 

03 

E0 

8A 


F0 

0B 

4 A 

90 

08 

4 A 

4 A 

09 


20 

88 

D0 

FA 

C8 

88 

D0 

F2 


60 

B1 

Cl 

20 

C2 

FC 

00 

A2 


01 

20 

FE 

FA 

00 

C4 

IF 

C8 


90 

FI 

A2 

03 

C0 

04 

90 

F2 


60 

A8 

B9 

37 

FF 

00 

85 

28 


B9 

77 

FF 

00 

85 

29 

A9 

00 


00 

A0 

05 

06 

29 

26 

28 

2A 


88 

D0 

F8 

69 

3F 

20 

D2 

FF 


CA 

D0 

EC 

A9 

20 

2C 

A9 

0D 


4C 

D 2 

FF 

20 

D4 

FA 

00 

20 











69 

FA 

00 

20 

E5 

FA 

00 

20 


69 

FA 

00 

A2 

00 

00 

86 

28 


A9 

90 

20 

D2 

FF 

20 

57 

FD 


00 

20 

72 

FC 

00 

20 

CA 

FC 


00 

85 

Cl 

84 

C2 

20 

El 

FF 


F0 

05 

20 

2F 

FB 

00 

B0 

E9 


4C 

47 

F8 

00 

20 

D4 

FA 

00 


A9 

03 

85 

ID 

20 

3 E 

F8 

00 
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0F40 
0F4 8 
0F50 
0 F58 
0F60 
0F68 
0F7 0 
0F78 


0F80 
0F88 
0F90 
0F98 
0 FA0 
0 FA8 
0 FB0 
0FB8 
0 FC0 
0 FC8 
0 FD0 
0FD8 
0FE0 
0 FE8 
0FF0 
0 FF8 


1000 

1008 

1010 

1018 

1020 

1028 

1030 

1038 

1040 

1048 

1050 

1058 

1060 

1068 


20 

A1 

85 

Cl 

FC 

00 

FF 

60 

FA 

00 

CC 

FA 

03 

68 

6E 

11 


F6 

CA 

FF 

C9 

F5 

20 

9C 

FA 

Cl 

A9 

10 

02 

00 

00 

F0 

75 

26 

20 

29 

AA 

FF 

00 

A2 

06 

F0 

15 

B0 

21 

20 

Cl 

EB 

06 


F8 00 
A5 21 
C5 28 
20 D4 
8 E 11 
00 48 
38 E9 
02 6E 


D0 ED 
0D F0 
D0 FE 
00 A4 
30 9D 
E8 D0 
86 26 
A2 00 
D9 FC 
BC 37 
20 B9 
E0 03 
A5 2A 
20 BF 
FE 00 
2A 90 


D0 F8 
85 C2 
F0 03 
FA 0 0 
02 A2 
CA D0 
3F A0 
10 02 


A2 02 
IE C9 
00 B0 
Cl 84 
10 02 
DB 86 
F0 04 
00 86 
00 A6 
FF 00 
FE 00 
D0 19 
C9 E8 
FE 00 
D0 C7 
0B BC 


A5 20 
4C 46 
20 D2 
20 69 
03 20 
F9 A2 
05 4A 
88 D0 


20 CF 
20 F0 
0F 20 
C2 85 
E8 9D 
28 A2 
E6 26 
ID A5 
2A 86 
BD 77 
D0 E3 
A4 IF 
A9 30 
D0 CC 
88 D0 
30 FF 


00 BD 
0 0 D0 
20 B8 
FE 00 
D0 A0 
F0 28 
20 1C 
04 A5 
00 C8 
A4 IF 
91 Cl 
Cl 20 
C2 A9 
20 C2 


2A FF 
B5 CA 
FE 00 
D0 A6 
20 69 
A5 29 
FB 00 
IE 10 
D0 FA 
D0 03 
88 D0 
CA FC 
90 20 
F8 00 


00 20 
D0 D1 
D0 AB 
A5 28 
FA 0 0 
C9 9D 
90 0A 
0A 4C 
A5 IE 
B9 C2 
F8 A5 
00 85 
D2 FF 
20 54 


B9 FE 
F6 0A 
20 B8 
C5 ID 
A4 IF 
D0 1A 
98 D0 
ED FA 
10 F6 
00 00 
26 91 
Cl 84 
A0 41 
FD 00 
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1070 

20 

41 

FA 

00 

20 

54 

FD 

00 


1078 

A9 

05 

20 

D2 

FF 

4C 

B0 

FD 


1080 

00 

A8 

20 

BF 

FE 

00 

D0 

11 


1088 

98 

F0 

0 E 

86 

1C 

A6 

ID 

DD 


1090 

10 

02 

08 

E8 

86 

ID 

A6 

1C 


1098 

28 

60 

C9 

30 

90 

03 

C9 

47 


10A0 

60 

38 

60 

40 

02 

45 

03 

D0 


10A8 

08 

40 

09 

30 

22 

45 

33 

D0 


10B0 

08 

40 

09 

40 

02 

45 

33 

D0 


10B8 

08 

40 

09 

40 

02 

45 

B3 

D0 


10C0 

08 

40 

09 

00 

00 

22 

44 

33 


10C8 

D0 

8C 

44 

00 

00 

11 

22 

44 


10D0 

33 

D0 

8C 

44 

9A 

10 

22 

44 


10D8 

33 

D0 

08 

40 

09 

10 

22 

44 


10E0 

33 

D0 

08 

40 

09 

62 

13 

78 


10E8 

A9 

00 

00 

21 

81 

82 

00 

00 


10F0 

00 

00 

59 

4D 

91 

92 

86 

4 A 


10F8 

85 

9D 

2C 

29 

2C 

23 

28 

24 












1100 

59 

00 

00 

58 

24 

24 

00 

00 


1108 

1C 

8 A 

1C 

23 

5D 

8 B 

IB 

Al 


1110 

9D 

8 A 

ID 

23 

9D 

8 B 

ID 

A1 


1118 

00 

00 

29 

19 

AE 

69 

A8 

19 


1120 

23 

24 

53 

IB 

23 

24 

53 

19 


1128 

A1 

00 

00 

1A 

5B 

5B 

A5 

69 


1130 

24 

24 

AE 

AE 

A8 

AD 

29 

00 


1138 

00 

7C 

00 

00 

15 

9C 

6D 

9C 


1140 

A5 

69 

29 

53 

84 

13 

34 

11 


1148 

A 5 

69 

23 

A0 

D8 

62 

5A 

48 


1150 

26 

62 

94 

88 

54 

44 

C8 

54 


1158 

68 

44 

E8 

94 

00 

00 

B4 

08 


1160 

84 

74 

B4 

28 

6E 

74 

F4 

CC 


1168 

4 A 

72 

F2 

A4 

8 A 

00 

00 

AA 


1170 

A2 

A2 

74 

74 

74 

72 

44 

68 


1178 

B2 

32 

B2 

00 

00 

22 

00 

00 


1180 

1A 

1A 

26 

26 

72 

72 

88 

C8 


1188 

C4 

CA 

26 

48 

44 

44 

A2 

C8 
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1 

190 

3 A 

3B 

52 

4D 

47 

58 

4C 

53 

1 

198 

54 

46 

48 

44 

50 

2C 

41 

42 

1 

1A0 

F9 

00 

35 

F9 

00 

CC 

F8 

00 

1 

1A8 

F7 

F8 

00 

56 

F9 

00 

89 

F9 

1 

1B0 

00 

F4 

F9 

00 

0C 

FA 

00 

3E 

1 

1B8 

FB 

,00 

92 

FB 

00 

C0 

FB 

00 

1 

1C0 

38 ' 

FC 

00 

5B 

FD 

00 

8A 

FD 

1 

1C8 

00 

AC 

FD 

00 

46 

F8 

00 

FF 

1 

1D0 

F7 

00 

ED 

F7 

00 

0D 

20 

20 

1 

1D8 

20 

50 

43 

20 

20 

53 

52 

20 

1 

1E0 

41 

43 

20 

58 

52 

20 

59 

52 

1 

1E8 

20 

53 

50 

AA 

AA 

AA 

AA 

AA 


Program 3. Supermon64 Checksum. 

100 REM SUPERM0N64 CHECKSUM PROGRAM 
110 DATA 10170,13676,15404,14997,15136, 
16221,16696,12816,16228,14554 
120 DATA14677,15039,14551,15104,15522, 
16414,15914,8958,11945 :S=2048 
130 F0RB=1T019:READX:FORI=STOS+l28:H=P 
EEK (I) : Y =Y+N 

140 NEXTI:IFY < >XTHENPRINT"ERROR IN 
BLOCK #"B:GOTO160 
150 PRINT"BLOCK #"B" IS CORRECT" 

160 S=I:Y=0:NEXTBs REM CHECK LAST SHORT 
BLOCK BY HAND 
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The Wedge 

One of the best reasons to learn machine language is that it can 
improve your BASIC programming significantly. There are two main 
ways that machine language can assist BASIC programming: adding 
commands to BASIC itself and replacing parts of a BASIC program 
with a high-velocity machine language subroutine. To add an ML 
subroutine to a BASIC program, you SYS, USR, or CALL (from 
Microsoft, Atari, or Apple BASICs respectively). That's fairly 
straightforward. To make changes to the BASIC language itself, 
however, we need to wedge into BASIC somehow. 

You can make BASIC a customized language with a wedge. Do 
you want auto-numbering when writing a program in BASIC? Add it. 
Does your BASIC lack a RENUMBER facility? You can give it one. Do 
you want all your BASIC programs to contain a REM line with your 
name in it? This could be automatically put into each of your 
programs if you know machine language. Using a wedge to a 
machine language program, you can communicate directly to your 
machine, bypass BASIC's limitations, and do pretty much what you 
want to do. 

How To Wedge In 

Adding commands to BASIC is a matter of interrupting a loop. This is 
often referred to as adding a wedge into BASIC. Under the control of 
the BASIC language, the computer is looking to see if a BASIC word 
has been typed in, followed by a hit on the RETURN key. Or, during 
a RUN, the computer examines the program in memory to see what 
you want accomplished. 

These, then, are the two contexts in which the computer 
analyzes a BASIC word: in a program or in "direct mode." In direct 
mode, you can type the word "LIST" onto the screen and hit the 
RETURN key. The computer looks up the meaning of "LIST" in a 
table of words which includes the addresses of the appropriate ML 
subroutines. It then JSR's (Jumps to a SubRoutine) somewhere in the 
vast ML of your computer's BASIC. This subroutine performs the 
actions necessary to provide you with a listing of the program in your 
computer's memory. If you could add some additional words to this 
table, you could add to BASIC. You could customize it. 

Here's how. When you first turn on a computer which uses 
Microsoft BASIC, one of the first things that happens is that the 
operating system puts some important ML instructions into a zone in 
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the first 256 memory locations (this area of RAM is called zero page). 
These instructions are put into zero page to handle the loop — often 
called the CHRGET loop (which means “character get") — where the 
operating system will forever after jump while power is on. This 
location is of great importance to BASIC; it is the “did they type any 
BASIC into the computer?" subroutine. It's where BASIC analyzes 
what it finds on screen or in a program, looking at something 
character by character to see what it adds up to. 

If you type "LIST," this little zero page ML subroutine looks at 
the "L" then the “l" and so on. The exact location of CHRGET 
differs on the various computers: 


PET (Original BASIC): 
PET/CBM (Upgrade & 4.0): 
VIC: 

64: 

Apple: 


decimal address 194-217 
112-135 
115-138 
115-138 
177-200 


The CHRGET ML program looks like this: 


0070 
0072 
0074 
0076 
0079 
007B B0 0A 
007D C9 20 
007F F0 EF 
0081 38 
0082 E9 30 
0084 38 
0085 E9 DO 
0087 60 


$77 
$0076 
$78 
$0203 
#$ 3 A 
BCS $0087 
CMP #$20 
BEQ $0070 
SEC 

SBC #$30 
SEC 

SBC #$D0 
RTS 


E6 

77 

INC 

DO 

02 

BNE 

E6 

78 

INC 

AD 

03 

02 LDA 

C9 

3A 

CMP 


This is put into your zero page RAM within the first few seconds 
after you turn on the computer. You can change it (RAM memory can 
be changed) to jump (JMP) to your own ML program by replacing the 
first three bytes of code. In our example above, we will replace the 
three bytes at hexadecimal location 0070 (the exact address will vary 
according to the CHRGET location as listed above for the different 
computers). Here is how the replacement looks in the example 
CHRGET routine: 

0070 4C 00 75 JMP $7500 
0073 02 ??? 
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0074 

E6 

78 

INC 

$78 

0076 

AD 

02 

0 2 LDA 

$0202 

0079 

C9 

3A 

CMP 

#$3A 

007B 

B0 

0A 

BCS 

$0087 

007D 

C9 

20 

CMP 

#$20 

007F 

F0 

EF 

BEQ 

$0070 

0081 

38 


SEC 


0082 

E 9 

30 

SBC 

#$30 

0084 

38 


SEC 


0085 

E9 

DO 

SBC 

# $D0 

0087 

60 


RTS 



The effect that this has is dramatic. Whenever the computer 
looks for a character in BASIC mode, it will jump first (because you 
forced it to) to your personal ML "wedged” routine located at $7500. 
The subroutine at $7500 could be anything you wanted it to be, 
anything you've put at address $7500. For an example, we've caused 
an "A" to appear on the PET/CBM screen: 


7500 

E6 

77 


INC 

$77 

7502 

DO 

02 


BNE 

$7506 

7504 

E6 

78 


INC 

$78 

7506 

A9 

41 


LDA 

#$41 

7508 

8D 

00 

80 

STA 

$8000 

7 50B 

4C 

76 

00 

JMP 

$0076 


Notice that we had to first perform the actions that the CHRGET 
would have performed. Before we can start our LDA #$41 to put an 
"A" on screen, we had to replace the early part of CHRGET that we 
wrote over (see 7500 to 7505 in Example 3). And, after we're done 
with our custom routine, we jump back into CHRGET at 750B. 

Adding a wedge to Atari BASIC is somewhat more involved. A 
clear and complete exposition of the techniques involved appears in 
an article by my colleague Charles Brannon, "The Atari Wedge" 

( COMPUTE! Magazine, November 1982). 
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A 

A or AC register (see Accumulator) 

Absolute addressing 25, 40-42, 45, 46, 48, 51, 56, 68, 69, 75, 81 
Absolute, X and Absoute, Y addressing 48, 51, 68, 69, 75, 81 
Accumulator 19, 26, 31, 33, 39, 56, 66 
Accumulator mode 51 
ADC 20, 56, 58, 68, 149 

Addresses 1, 2, 19, 20, 47, 54, 77, 85, 99, 124, 127, 128, 130, 139, 140, 
146 

get a character address 1 
last key pressed 77 
safe place address 1, 2 
start of RAM 1, 99 
start print address 1 
which key is pressed? 1, 54, 127,128 
Addressing 18, 22, 40 

Addressing modes 12, 33-34, 37-51, 68, 69, 75, 81, 149-166, 223, 224 
Absolute 25, 40-42, 45, 46, 48, 51, 56, 68, 69, 75, 81 
Absolute, X and Absolute, Y 48, 51, 68, 69, 75, 81 
Accumulator mode 51 
Immediate 25, 33, 34, 43, 51, 66, 68, 69 
Implied 43-45, 55, 81 
Indirect Indexed 74, 125, 141 
Indirect X 51, 68, 69 

Indirect Y 42, 49, 51, 57, 58, 69, 70, 74, 77, 85 
Relative 25, 45-47, 69 

Zero Page 33, 34, 42-43, 51, 55, 65, 68, 69, 75 
Zero Page, X 48, 68, 69, 75 
Zero Page, Y 51 
"Alphabetic" mode 54 
AND 39, 88, 89, 149 
Arcade game programming in ML vi 
Argument viii, 40, 55, 69, 70, 77, 81, 223, 224 
ASCII code 3, 9, 53, 70, 78, 131, 144 
ASL 51, 59, 68, 89, 149 
ASM mode (Atari monitor) 27, 28,110 
Assembler vii, 2, 35, 45, 46, 61, 140, 223 
assembler program 18 
traditional conventions, list of 224 
two-pass assemblers 72, 223, 225 
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Index 


Assembler Editor (Atari) 23, 26, 28,110, 130,143 
Assembly language vii (see machine language) 
Assignment of value (see LET) 

Atari monitor (see Assembler Editor; DEBUG) 

Atari source code 143 

ATASCII3,144 

Attract mode 124 

Auto-booting 125 


B 

BASIC v-vi, vii-xii, 1-4, 7,19, et passim 
advantages of xii 
commands vii, 63,121-147 
ASC144 
CHR$ 144 
CLR121-22 
CONT86,122 
DATA xii, 122-23,140 
DIM 123 
END 63,124-25 
FOR-NEXT125-26 
FOR-NEXT-STEP 126-27 
GET 40, 93, 127-28,131 
GOSUB 81,128-29,141, 142 
GOTO 18, 84, 85,129-30 
IF-THEN 69, 71,131 
INPUT 131-32, 133 
LEFTS 144,145 
LEN145 
LET 132-34 
LIST xi, 134 
LOAD 30, 92, 134-35 
MID$ 145 
NEW 121, 135-36 
ON GOSUB 71,136, 137 
ON GOTO 69, 71, 74,137 
PRINT x, 40,137-40 
READ 140 
REM 140 

RETURN 5,131,141 
RIGHTS 145-46 
RUN 141-43 
SAVE 30,110,143 
SPC 146-47 
STOP 122,124,143 
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Index 


TAB 146,147 
loaders 19 

Microsoft BASIC vii, 2, 4,17, 91, 93,105,135,141,144, 224, 335 
words xi 

BCC 45, 59, 61, 69, 71, 74, 75,131,150 
BCS 45, 59, 61, 69, 71, 74, 75,150 
BEQ 25, 45, 47, 59, 69, 71, 77,131,151 
Binary numbers 7, 8, 9, 15, 243-50 
program for printing table of 16 
BIT 89, 151 

Bits and bytes 8, 9,10, 12-15 

BMI45, 59, 61, 68, 71, 74, 75,151 

BNE 24, 45, 59, 61, 69, 71, 72, 74, 75, 77, 131,151 

BPL 24, 45, 59, 61, 68, 71, 74, 75, 152 

Branch address 47 

Branches: 

ON-GOTO 74 
forward 78 

Branching instructions 25, 45, 46, 47, 59, 67, 68, 69, 71-72, 73, 88 
BRANCHTARGET 72, 74 
Breakpoints 86, 87,143 

BRK 29, 30, 34, 37, 45, 61, 67, 86-87, 90,122,124,134, 143, 152 

Buffer 42, 98 

BUG 28,142 

Bugs 31, 33-34 

BVC 45, 63, 68, 71,152 

BVS45, 68, 71,152 

c 

CALL instruction viii, x, xi, 23, 65,141 

Carriage return 54,144 

Carry flag 37, 39, 45, 56, 58, 68, 69 

Cassette buffer 1 

CHRGET loop 336 

CHRGET ML program 336 

Circumflex 26, 223 

CLC43, 56, 58, 68,109, 153 

CLD 43, 56, 68,153 

CLI89, 153 

CLV 63, 153 

CMP instruction 8, 33, 34, 61, 69, 70, 71, 75, 77, 89, 127, 128,131, 136, 
145,154 
Code 53 

"Cold start" address 124 
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Comma, use of 79, 223-24 
Commands: 

BASIC 63,121-47 

machine language 63, 64-90,149-66 
Commodore character codes 144 
Commodore Monitor Extension 26 
Comparisons 70 
Compiled code 92 
Compilers 92-93 
Conditional branch 129,131 
Control characters 273, 276 
Counter variable 125 
Counters 125-26 

CPU (central processing unit) 8, 18, 37, 39 

CPX 70,154 

CPY 70,154 

Cursor address 77 

Cursor controls (PET) 30 

Cursor management 77 

Cursor position 140,147 

D 

Data table 31,121, 225 
Debug xii 

DEBUG (Atari monitor mode) 26, 28, 29,142,143 
commands in 28-30 
Debugger 23, 36 
Debugging 86 

methods 87-88 
DEC 75,155 
Decimal address 19 
Decimal flag 56 

Decimal numbers 8, 9,10,14,16, 243-50 
Default 92 

Delay loop 83-84,125-26,129 
Delimiter 78,138,145,146 
DEX 45, 75, 84,155 
DEY 45, 75,155 
Dimensioned memory 123 
Direct mode 4, 335 
Disassembler viii, 20,134 
Disassembly viii, ix, 20,140 
Disassembly listings 25 
Dollar sign ($) 10,12, 28, 223 
Do-nothing loop (see Delay loop) 
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DOS (disk operating system) xi, 135 
Double compare 59 

E 

Echo 131 

EDIT mode (Atari monitor) 27, 28, 30,143 
Effective address 85 
END 4 (see Pseudo-ops) 

Endless loop 33, 54, 74, 76, 124,125,145 
EOR 39, 88,156 
Equates 72 

Error messages 26, 48, 77 

F 

Fields 25, 27 
Filename 143 
FILL instruction 67 
"Fill memory" option 135 
FIND command (Atari) 110-118 
Flags 8,12, 31, 37, 39, 45, 56, 61, 66-67, 68, 69, 77, 131 
B flag 68, 86 

C or Carry flag 37, 39, 45, 56, 58, 68, 69 
D flag 68 
I flag 68, 86 
interrupt flag 89 

N or Negative flag 64, 66, 68, 69, 75, 89 
status register flags 68,131 
V or overthrow flag 45, 68, 89 

Z or Zero flag 39, 64, 66, 67, 68, 69, 71, 75, 77, 78, 89,130, 
131,138,145 

Floating point accumulator 141 
Floating point arithmetic 59,142 


G 

GET# 93 

H 

Hexadecimal numbers viii, 1-2, 7, 8, 9,10,11-12, 16-17, 45, 243-50 
conventions of 12 
Hex dump 19, 20, 24 
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I 

Immediate addressing 25, 33, 34, 43, 51, 66, 68, 69 

Immediate mode 141 

Implied addressing 43-45, 55, 81 

INC 75,156 

Indirect-indexed addressing 74,125,141 

Indirect jump 85, 224 

Indirect X addressing 51, 68, 69 

Indirect Y addressing 42, 49, 51, 57, 68, 69, 70, 74, 77, 85 

Initialization routine 121 

“Instant action" keys 54 

Instruction field (see Fields) 

INT mode 25 
Interactivity 34-35 
Interpreter 125,133 
Interrupt request 31, 86 
Interrupts: 

maskable 89 
non-maskable 90 
INX45, 55,75,156 
INY 45, 75,157 
IRQ 31, 37, 39, 86 

J 

JMP instruction 18, 24, 34, 81, 82, 84-85, 91, 128,129, 130, 157 
JSR 24, 25, 45, 67, 71, 72, 80, 81, 82, 91, 92,124,129,130,136,141,143, 
157 


K 

Kernal 91 

Kernal jump table 91, 92, 94,128 

L 

Label table 72 
Languages vii, xi 
FORTH 82 

(see also BASIC; Machine language) 

LDA 20, 25, 26, 29, 33, 39, 40, 43, 45, 48, 55, 61, 63, 64, 66, 69, 71,158 
LDX 51, 64, 66,158 
LDY33,34, 64, 66,159 
Loaders ix-x 
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Loops 67, 75-84,125-28, 335 
delay 83-84, 125-26,129 
endless 33, 54, 74, 76, 124, 125,145 
FOR-NEXT 46, 47, 75, 125-26 
indexed 48 
nested 76,127 
timing 76 

LSB (Least Significant Byte) 49, 51, 58, 70, 85, 126, 139,141, 243-50 
LSR 51, 59, 68, 89, 159 

M 

Machine language (ML) 
advantages of viii, xi 
equivalents of BASIC commands 121-47 
INPUT subroutine 131-32 
instruction groups 64-90 
arithmetic 39, 68-69 
debuggers 86-90 
decision-makers 69-75 
loop 75-81 

subroutine and jump 81-86 
transporters 64-68 
instructions vii, 121-47, 149-66 
monitor 253, 269-333 
strings 77-80,144-47 
subroutines 31, 91-96 
Maps 42 

Atari Memory Map 205 
Commodore 64 Memory Map 193-204 
PET/CBM 4.0 BASIC ROM Routines 175-80 
PET/CBM 4.0 BASIC. Zero Page 172-75 
PET Original and Upgrade BASIC 167-69 
Upgrade PET/CBM 169-72 
VIC Zero Page and BASIC ROMs 181-92 
Masking 88-89 
Mass-move 80 
Memory addresses 1, 2, 20 
Memory dump, 24, 28-29, 30, 275 
Memory map 1 (see also Maps) 

Memory mapped video 70 
Memory zones 133 
Message table 138 
Message zone 77 
Micromon 23, 31,130, 269-333 
VIC Micromon 296-318 
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Mnemonics 18, 20,149-66 
Modes: 

BASIC mode 142 
monitor mode 19, 26,142, 143 
(see also Addressing modes) 

Monitor 18, 22,23-37 

Apple II monitor 23-26,143 

Atari monitor 26-28 (see also ASM; Assembler Editor; Debugger) 

interactive monitors 34-35 

monitor extensions 253-334 

PET, VIC, and Commodore 64 monitor 30 

"resident” monitor 30, 253 

(see also Micromon; Supermon) 

"Move it" routine 130 

MSB (Most Significant Byte) 49, 51, 58, 70, 85, 99,126,138, 139,141, 
243-50 

Multiple branch test 136 

N 

Natural numbers 7 
NOP 45, 86,169 
uses of 87-88 

Number tables (hex, binary, decimal) 243-50 

o 

Object code 18, 22, 28, 47, 225, 226 
Opcode 18, 20, 55, 66, 223, 224 
Operand 55 (see Argument) 

ORA 160 

OS (operating system) 42 

P 

Page 33 

page one 42 
page six 68, 110 

page zero 33, 42, 51, 56, 57, 98,139,140, 336 
Parameters 67, 83,128,141 
PET ASCII 3 
PHA 45, 67, 81, 82,160 
PHP45, 67,160 
PLA 3, 4, 5, 45, 67, 82, 161 
PLP45, 67,161 
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Pointers 49, 51, 57, 98,109 
zero page 77 
Pound sign (#) 25, 43, 55 
Powers of a number 7-9 
PRINT routines 140 
Program counter 37, 39, 55, 65,141 
Programs: 

Adding the Conversion Pseudo-op 226 
Apple Version (of Search BASIC Loader) 119-20 
Atari Disassembler 240-42 
Atari Hex-Decimal Converter 11 
BASIC Loader 19 

Binary Quiz for All Computers 15-16 

CHRGET ML program 336 

Decimal to Hex, Microsoft BASIC 17 

Disassembler 237-40 

Double Compare 60 

FIND Utility for Atari BASIC 112-18 

for printing out table of binary numbers 16 

Full Assembly Listing 21 

Labelled Assembly 21 

Micromon 269-333 

Microsoft Hex-Decimal Converter 10-11 
Microsoft Table Printer 250-51 
PET Search (4.0 BASIC Version) 100-104 
Simple Assembler 227-36 
Atari Version 231-36 
VIC, PET, Apple, 64 Version 227-30 
64 Search BASIC Loader 119 
The Source Code by Itself 22 
Supermon 253-68 
Supermon64 319-33 
VIC Micromon 303-18 
VIC-20 Search BASIC Loader 120 
Prompts 31 

Pseudo-ops 4, 27, 28, 29, 47, 224-26 
PUT#6 93 

R 

RAM (Random Access Memory) viii, xi, 1, 2, 4, 9,12,19, 31, 33, 37, 
42, 80, 97, 98, 225 
Reference sources 221 
Registers 26, 28, 30-31, 57, 66, 70, 82 
Relative addressing 25, 45-47, 69 
REM statements xii, 20 
"Resolving” labels 225 
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ROL51, 89,161 

ROM (Read Only Memory) xi, 1,12, 23, 25, 26,128, 253 
ROR 51, 63, 89,162 
RTI 63, 89, 90,162 

RTS 20. 25, 45, 67, 81,124,129, 136,141,143, 162 

s 

Safe areas 2-3, 42, 68, 97-98, 99, 105 
SBC 61, 68,163 
Screen address 139,140 
Screen position (see STA) 

Search bloader 119-20 
Search routine 88 
SEC 43, 58, 61, 68, 163 
SED 43, 56, 63,163 
SEI89-90,164 
SGN command 63 

Simple Assembler 1, 2, 3, 4, 5,10,17, 22, 25, 26, 27, 28, 35, 43, 47, 57, 
73, 74, 79, 223-36 
Single-stepping 87 

6502 machine language (see Machine language) 

Softkey 132 

Source code 18,19, 22, 28, 49, 72, 225 
Source program 140, 225 
Spaces, important 224 

STA 20, 40, 49, 51, 55, 56, 57, 63, 64, 65, 67,164 

Stack 42, 67-68, 81-83,141 

Stack pointers 26, 28, 37, 39 

Status Register 8, 26, 28, 31, 39, 56, 66, 68, 82 

Step 26, 29-30, 31, 126-27 

String handling 77-80,144-47 

Structured programming 85 

STX 51, 64, 67,164 

STY 64, 67,165 

Subroutines 31, 91-96 

Supermon 23, 31, 130, 253-68 

Supermon64 319-333 

Symbols 53 

SYS instruction v, viii, x, xi, 19, 25, 30, 65,124,141 

T 

TAN command 63 
Target address 130,139,146 
TAX 64, 66,165 
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TAY 64, 66, 165 

TIM (terminal interface monitor) 142, 270, 271, 272, 275 

Toggle 88-89 

Trace 26, 29, 31 

TRACE 87 

Transfer 130 

“Truth tables" 89 

TSX 67, 165 

Two-pass assemblers 72, 223, 225 
TXA 43, 45, 55, 64, 66, 166 
TXS 67,166 

TYA 39, 43, 64, 65, 66,166 

u 

Unconditional branch 129,130 

Unmatched RTS 141,143 

Upward arrow 223 (see also Circumflex) 

USR instruction v, viii, x, xi, 3, 4, 19, 63, 64, 67,110, 111, 124,141,142 

V 

Variable x-xi, 132-34, 140 
storing 57 
Vector 86 


w 

“Warm start" address 124 
Wedge 335-37 

X 

X register 46, 51, 67, 75, 125,126 
X and Y registers 26, 31, 39, 45, 48, 66, 75, 93, 94 

Y 

Y register 26, 34, 39, 57, 70, 147 

z 

Zero address 47 

Zero page 33, 42, 51, 55, 56, 57, 98,139,140, 336 
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Zero page addressing 33, 34, 42-43, 51, 55, 65, 68, 69, 75 

Zero page locations 49, 99 

Zero page snow 68 

Zero page, X addressing 48, 68, 69, 75 

Zero page, Y addressing 51 

Zone of variables 133,134 
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Machine Language For Beginners 

"Most books about machine language assume a con¬ 
siderable familiarity with both the details of microprocessor chips 
and with programming techniques. This book only assumes a 
working knowledge of BASIC. It was designed to speak directly 
to the amateur programmer, the part-time computerist. It should 
help you make the transition from BASIC to machine language 
with relative ease." 

— From The Introduction 


Contains everything you need to learn 6502 machine language 
including: 

• A dictionary of all major BASIC words and their machine 
language equivalents. This section contains many sample 
programs and illustrations of how all the familiar BASIC 
programming techniques are accomplished in machine 
language. 

• A complete Assembler program which supports pseudo¬ 
ops, forward branches, two number systems, and number 
conversions. It can easily be customized following the step- 
by-step instructions to make it perform any functions you 
want to add. 

• A Disassembler program with graphic illustrations of 
jumps and subroutine boundaries. 

• An easy-to-use number chart for quick conversions. 

• Memory maps, monitor extensions, and all 6502 com¬ 
mands arranged for easy reference. 

• Many clear, understandable examples and comparisons 
to already familiar BASIC programming methods. 
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